Создать процедуру, в которой определяется максимальная и минимальная строка, вывести их на экран, поменять местами - Pascal ABC

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

Создать .txt файл с текстом, програмно считать текст из файла, выполнить обработку: 1)Создать процедуру в которой определяется максимальная и минимальная строка, вывести их на экран, поменять местами; 2)Посчитать количество слов на букву "П".

Решение задачи: «Создать процедуру, в которой определяется максимальная и минимальная строка, вывести их на экран, поменять местами»

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

procedure MinMax(var f: text; var k: integer);
{Создать процедуру в которой определяется максимальная и минимальная строка, 
вывести их на экран, поменять местами;}
var
  min, max: string;
  s: string;
  i: integer;
begin
  reset(f);
  readln(f, s);
  min := s;
  max := s;
  k := 0;
  while not eof(f) do
  begin
    readln(f, s);
    if length(s) < length(min) then
      min := s;
    if length(s) > length(max) then
      max := s;
    s := ' ' + s + ' ';  
    for i := 1 to length(s) - 1 do
      if (s[i] = ' ') and (s[i + 1] = 'П') then
        inc(k);
  end;
  close(f);
  writeln('min: ', min);
  writeln('max: ', max);
  s := min;
  min := max;
  max := s;
  writeln('После обмена:');
  writeln('min: ', min);
  writeln('max: ', max);
  
end;
 
var
  ft: text;
  n: integer;
 
begin
  assign(ft, 'data.txt');
  minmax(ft, n);
  writeln('количество слов на букву "П": ', n)
end.

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

Создается процедура с именем MinMax.
В процедуре объявлены следующие переменные:
- min, max: строки для хранения минимальной и максимальной строк соответственно;
- s: текущая строка;
- i: счетчик для цикла;
- k: счетчик для подсчета слов на букву П.
Переменная f инициализируется как текстовый файл, содержащий данные.
Файл открывается на чтение с помощью функции reset.
Пока файл не пуст, происходит чтение строки с помощью функции readln.
Если длина текущей строки меньше длины минимальной строки, то обновляется значение переменной min.
Если длина текущей строки больше длины максимальной строки, то обновляется значение переменной max.
К строке добавляются пробелы в начале и в конце с помощью оператора +.
Происходит проверка каждого символа строки, начиная с первого, не является ли он пробелом, за которым следует П. Если это так, то увеличивается значение переменной k.
После окончания чтения файла, закрывается файловый поток с помощью функции close.
Выводятся значения переменных min и max.
Значения переменных min и max меняются местами.
Выводятся значения переменных min и max после обмена.
В основной программе создается переменная ft типа text для хранения имени файла.
Вызывается процедура MinMax с передачей в нее переменной ft и переменной n в качестве результата.
Выводится количество слов на букву П, хранящихся в переменной n.