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

Формулировка задачи:

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

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

Листинг программы

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.

Объяснение кода листинга программы

Программа начинается с объявления переменных fdat и frez типа text для работы с текстовыми файлами.
Строки s1 и s2 считываются из файла fdat.
Переменные smin и smax инициализируются пустой строкой (''), так как длина пустой строки равна нулю.
Если длина строки s1 больше длины строки s2, то smin присваивается значение s2, а smax - значение s1. В противном случае, если длина строки s1 меньше длины строки s2, то smin присваивается значение s1, а smax - значение s2.
Чтение строк продолжается до конца файла fdat.
После чтения каждой строки, проверяется, является ли она длиннее или короче текущей максимальной или минимальной строки. Если это так, то соответствующая переменная (smin или smax) присваивается значение этой строки.
По окончании чтения всех строк, в файл frez записываются минимальная и максимальная строки.
Наконец, файлы fdat и frez закрываются.