Создать строковый файл, содержащий все слова из исходного файла, начинающиеся указанной буквой

Program pr;
uses crt;
Var f1,f2:text;
    I,n: integer;
    S: string;
Begin
clrscr;
    Assign(f1, ‘file1.txt’); 
    Rewrite(f1);  
    Readln(n); 
    for i:=1 to n do
    begin
        readln(s); 
        writeln(f1,s); 
    end;
    close(f1); 
    Reset(f1); 
    Assign(f2, ‘file2.txt’); 
    Rewrite(f2); 
    While not eof(f1) do
    Begin
        Readln(f1,s);
        If (s[1]=’C’) or (s[1]=’c’) then
        Writeln(f2,s); 
    End;
    Close(f1);
     close(f2);
    Writeln;
    Writeln(‘Второй файл содержит слова:’);
    Reset(f2); 
    While not eof(f2) do 
    Begin
        Readln(f2,s);
        Writeln(s); 
 readln;
    End;
close(f2);
End.

var
  c: char;
...
  Write('Введите букву: '); ReadLn(c); c:=UpCase(c);
...
  if UpCase(s[1])=c then ...

While not eof(f1) do
  Begin
    Readln(f1,s);
    i:=1;
    M:=0;
 
    //While (S[i]=' ')and(i<>length(S)) then inc(i); //пропуск пробелов в начале
 
    While i+m <= length(S) do
    begin
 
      If (s[i]=’C’) or (s[i]=’c’) then
        While (S[i+m]<>' ')and(i+m<>length(S)) then inc(m);
 
      Writeln(f2,Copy(s,i,m));
 
      i:=M+i+1;
    end;
 
End;

Program pr;
uses crt;
Var f1,f2:text;
    I,n,j: integer;
    S: string;
  c: char;
Begin
clrscr;
    Assign(f1, ‘file1.txt’); 
    Rewrite(f1);
Write('Введите букву: '); ReadLn(c);  
    Readln(n); 
    for i:=1 to n do
    begin
        readln(s); 
        writeln(f1,s); 
    end;
    close(f1); 
    Reset(f1); 
    Assign(f2, ‘file2.txt’); 
    Rewrite(f2); 
    While not eof(f1) do
    Begin
        Readln(f1,s);i:=1;
    repeat
      while (i<=Length(s)) and (s[i]=' ') do inc(i);
      j:=i;
      while (i<=Length(s)) and (s[i]<>' ') do inc(i); 
        if i>j then begin
        Copy(s,j,i-j);
        If (s[j]=’C’) or (s[j]=’c’) then
        Writeln(f2,s); 
    End;
    Close(f1);
     close(f2);
    Writeln;
    Writeln(‘Второй файл содержит слова:’);
    Reset(f2); 
    While not eof(f2) do 
    Begin
        Readln(f2,s);
        Writeln(s); 
 readln;
    End;
close(f2);
End.

program pr;
var
  f1, f2: text;
  i, n, j: integer;
  s: string;
  c: char;
Begin
  Assign(f1,'file1.txt'); Rewrite(f1);
  Assign(f2,'file2.txt'); Rewrite(f2); 
  Write('Введите букву: '); ReadLn(c); c:=UpCase(c); { только латиница }
  WriteLn('Введите текст, окончание - пустая строка:');
  ReadLn(s);
  while s<>'' do begin
    WriteLn(f1,s); ReadLn(s);
  end;
  Close(f1); Reset(f1); 
  while not eof(f1) do begin
    Readln(f1,s); i:=1;
    repeat
      while (i<=Length(s)) and (s[i]=' ') do inc(i);
      j:=i;
      while (i<=Length(s)) and (s[i]<>' ') do inc(i); 
      if (i>j) and (UpCase(s[j])=c) then
        WriteLn(f2,Copy(s,j,i-j)); 
    until i>Length(s);
  end;
  Close(f1); Close(f2); Reset(f2);
  WriteLn;
  WriteLn('Второй файл содержит следующие слова:');
  while not eof(f2) do begin
    Readln(f2,s); WriteLn(s); 
  End;
  Close(f2);
  Write('Нажмите ENTER...'); ReadLn;
end.