Скопировать в файл F2 только те строки из F1, которые начинаются с буквы «А».

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.

var
 st, dir1, dir2: string;
 f1, f2: text;
 i, j: integer;
begin
 dir1:='C:\Documents and Settings\Admin\Рабочий стол\File1.txt';
 dir2:='C:\Documents and Settings\Admin\Рабочий стол\File2.txt';
 {перенос всех слов на букву "А" в файл F2}
 assign(f1, dir1);
 reset(f1);
 assign(f2, dir2);
 rewrite(f2);
  while not EOF(f1) do
   begin
    readln(f1, st);
     if st[1] = 'А' then
      writeln(f2, st);
   end;
 close(f1);
 close(f2);
 {----------------------------------------}
 {Подс4ет слов в файле F2}
 assign(f2, dir2);
 reset(f2);
  while not EOF(f2) do
   begin
    readln(f2, st);
    inc(j);
     for i:= 1 to length(st) do
      begin
       if st[i]=' ' then
        begin
         inc(j);
        end;
      end;
   end;
 writeln('Слов в файле f2 - ', j);
 close(f2);
 {----------------------------------------}
end.

Uses
 CRT;
Var
 f,f2:text;
 s:string;
 i,j,kol,k,kol2:integer;
begin
Assign(f,'D:\1.txt');
Assign(f2,'D:\2.txt');
reset(f);
rewrite(f2);
j:=0;
kol2:=0;
repeat
 readln(f,s);
 if s[1]='À' then
 begin
 writeln(f2,s);
 write('Â ñòðîêå " ',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)-1 do
 if (s[i] in ['.',',','!',':','?',' ']) and not(s[i+1] in ['.',',','!',':','?',' ']) then inc(kol);
  inc(j);
 if (s<>'') then kol:=kol+1;
 write(' " ñëîâ:=',kol);
 //kol2:=kol2+kol;//если общее кол-во слов надо
end;
 writeln;
until eof(f);
Close(f);
Close(f2);
//writeln('В файле F2 слов:=',kol2);
readkey
end.