Исправить ситаксические ошибки в программе которая в тексте меняет…

Vars: string; d,i: integer; begins: ='177777277777377777477777'; d: =length (s); for i: =1 to d-4 doif copy (s,i,5)='77777' thenbegindelete (s,i,5); insert ('00000',s,i); end; writeln (s); end.