Создать текстовый файл F1 не менее, чем из 10 строк и записать в него информацию.а)Скопировать из файла F1 в файл F2 строки, начиная с 4.б)Подсчитать количество символов в последнем слове F2. — Pascal(Паскаль)

Uses
 CRT;
Var
 f,f2:text;
 s:string;
 i,j,kol,k:integer;
begin
Assign(f,'D:\1.txt');
Assign(f2,'D:\2.txt');
reset(f);
rewrite(f2);
j:=0;
repeat
 readln(f,s);
 write('Â ñòðîêå " ',s);
 if s[1]='À' then
  writeln(f2,s);
 kol:=0;
 k:=0;
 i:=1;
 while s[i] in ['.',',','!',':','?',' '] do
 begin
  inc(i);
  inc(k);
 end;
 delete(s,1,k);
 k:=0;
 i:=length(s);
 while s[i] in ['.',',','!',':','?',' '] do
 begin
  dec(i);
  inc(k);
 end;
 delete(s,length(s)-k+1,k);
 for i:=1 to length(s) do
 if (s[i] in ['.',',','!',':','?',' ']) then inc(kol);
  inc(j);
 if (s<>'') then kol:=kol+1;
 write(' " ñëîâ:=',kol);
 writeln;
until eof(f);
Close(f);
Close(f2);
readkey
end.