Файл: Переписать в другой текстовый файл самую короткую и самую длинную строки.

program tf1627196;
 var fdat,frez:text;
     s1,s2,smin,smax:string;
begin
  assign(fdat,'dat.txt');reset(fdat);
  assign(frez,'rez.txt');rewrite(frez);
  readln(fdat,s1);
  readln(fdat,s2);
  if length(s1)>length(s2)
   then begin smin:=s2; smax:=s1 end
   else begin smin:=s1; smax:=s2 end;
  while not(eof(fdat)) do
   begin
    readln(fdat,s1);
    if length(s1)>length(smax)
     then smax:=s1
     else if length(s1)<length(smin)
           then smin:=s1;
   end;
  writeln(frez,smin);
  writeln(frez,smax);
  close(fdat);close(frez)
end.

program tf1627196;
 var fdat,frez:text;
     s,smin,smax:string;
begin
  assign(fdat,'dat.txt');reset(fdat);
  assign(frez,'rez.txt');rewrite(frez);
  readln(fdat,smax);
  readln(fdat,s);
  if length(s)>length(smax)
   then begin smin:=smax; smax:=s end
   else smin:=s;
  while not(eof(fdat)) do
   begin
    readln(fdat,s);
    if length(s)>length(smax)
     then smax:=s
     else if length(s)<length(smin)
           then smin:=s;
   end;
  writeln(frez,smin);
  writeln(frez,smax);
  close(fdat);close(frez)
end.