Дана строка и текстовый файл

writeln(f2,s);

while not eof(f1) do
 begin
  readln(f1,s1);
  writeln(f2,s1);
 end;

var
  f:text;
begin
  assign(f,'1.txt');
  rewrite(f);
  ......
  close(f)
end.

var
  f,g:text;
begin
  assign(f,'1.txt');
  reset(f);//первый на чтение
  assign(g,'2.txt'); 
  rewrite(g);//второй на запись
  ...................... //прочитали первый, переписали по условию во второй
  close(f);//закрыли первый
  reset(g);//на чтение второй
  while not eof(g) do
   begin
    readln(g,s);//читаем
    writeln(s);// на экран
 end;
close(g);//закрыли
end.

var
  f1,f2:text;
  s,s1:string;
begin
  readln(s);
  assign(f1,'input.txt');
  assign(f2,'output.txt');
  reset(f1);
  rewrite(f2);
  writeln(f2,s);
  while not EOF(f1) do
  begin
    readln(f1,s1);
    writeln(f2,s1)
  end;
  writeln(f2,s);
  close(f1);
  close(f2)
end.

Program ph;
uses crt;
var
f,D:text;
s:string;
begin
assign (f,'D:\kate.txt');
Reset (d);
end.
while Not eof(f) do
 begin
 readln(f)
 end;
 
 while not eof(f) do
 Begin
  writeln('vvogy stroky');
 readln
  end.