Процедура: переписать в текстовый файл t1 содержимое текстового файла t2 без пустых строк

uses crt;
var t1,t2:text;
    
procedure Pris(t1,t2:text);
var s:string;
  begin
  readln(t2,s);
  If s>'' then writeln(t1,s);
  end;
  
begin
assign(t2,'input.txt');
reset(t2);
assign(t1,'output.txt');
rewrite(t1);
while not eof(t2) do
  Pris(t1,t2);
close(t1);
close(t2);
end.

procedure Prisv(var t1,t2:text);
var s:string;
begin
while not eof(t2) do
 begin
  readln(t2,s);
  if s<>'' then writeln(t1,s);
 end;
close(t1);
close(t2);
end;
var f,g:text;
begin
assign(f,'input.txt');
reset(f);
assign(g,'output.txt');
rewrite(g);
Prisv(g,f);
end.

if s<>'' then writeln(t1,s);//если строка не пустая, то переписываем

procedure Prisv(var t1,t2:text);
var c:char;
begin
while not eof(t2) do
 begin
  read(t2,c);
  if not(c in [#10,#13,#26]) then
   begin
    write(t1,c);
    while not eoln(t2) do
     begin
      read(t2,c);
      write(t1,c);
     end;
   writeln(t1);
  end;
 end;
close(t1);
close(t2);
end;
var f,g:text;
begin
assign(f,'input.txt');
reset(f);
assign(g,'output.txt');
rewrite(g);
Prisv(g,f);
end.