Описать процедуру npuce(t1, t2), переписывающую в текстовый файл t1 содержимое текстового файла t2, но без пустых строк — Pascal(Паскаль)

var f1,f2:text;
          s:string;
           i:integer;
 
procedure npuce(var t1,t2:text);
begin
reset(t2);
rewrite(t1);
while not eof(t2) do
begin
    readln(t2,s);
    if s<>'' then writeln(t1,s);
end;
close(t1);
close(t2);
end;
 
begin
assign(f2,'data.txt');
assign(f1,'result.txt');
npuce(f1,f2);
end.