Записать текст в файл F. Переписать компоненты файла F в файл H , вставляя в начало каждого слова по двум пробела. Паскаль

Program primer; Var        f,h:text;        I: integer;          S: string;     Begin Assign(f,'F.txt'); Assign(h,'H.txt'); rewrite(f); Writeln('текст в файл F: '); readln(s); writeln(f,s);   //Записать текст в файл F close(f); Rewrite(h); Reset(f); Readln(f,s); write(h,'  '); For i:=1 to length(s) do                                                   begin                                               write(h,s[i]);  //Переписать компоненты файла F в файл H                                                if (s[i]=' ') then                                                      begin                                               write(h,'  ');   //вставляя в начало каждого слова по двум пробела                                          end;                                          end;         close(f); close(h); end. // Паскаль ABC