Определения самого длинного среди четырех введенных пользователем строк - Pascal ABC

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

Создать программу для определения самого длинного среди 4-х введенных пользователем строк. Определение длинного строки должно выполняться в подпрограмме (или подпрограммах).

Решение задачи: «Определения самого длинного среди четырех введенных пользователем строк»

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

program pr;
var
  s1, s2, s3, s4: string;
  l1, l2, l3, l4: integer;
function leng(s: string): integer;
var
  i, cout: integer;
begin
  cout := 0;
  for i := 1 to length(s) do
  begin
    cout := cout + 1;
  end;
  leng := cout;
end;
begin
  writeln('Введите 1 строку');
  readln(s1);
  writeln('Введите 2 строку');
  readln(s2);
  writeln('Введите 3 строку');
  readln(s3);
  writeln('Введите 4 строку');
  readln(s4);
  l1 := leng(s1);
  l2 := leng(s2);
  l3 := leng(s3);
  l4 := leng(s4);
  if (l1 > l2) and (l1 > l3) and (l1 > l4) then
    writeln('Наибольшая длина у 1 строки');
  if (l2 > l1) and (l2 > l3) and (l2 > l4) then
    writeln('Наибольшая длина у 2 строки');
  if (l3 > l1) and (l3 > l2) and (l3 > l4) then
    writeln('Наибольшая длина у 3 строки');
  if (l4 > l1) and (l4 > l2) and (l4 > l3) then
    writeln('Наибольшая длина у 4 строки');
end.

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

Создается программа на языке Pascal ABC.
Объявляются переменные s1, s2, s3, s4 типа string для хранения введенных пользователем строк, а также переменные l1, l2, l3, l4 типа integer для хранения длины этих строк.
Создается функция leng(s: string), которая определяет длину строки s. Внутри функции инициализируется переменная cout = 0, после чего происходит цикл for, который увеличивает значение cout на 1 за каждый символ строки s. В конце функция возвращает значение cout.
Запускается цикл, в котором пользователю предлагается ввести четыре строки. Введенные строки сохраняются в переменных s1, s2, s3, s4.
После получения всех строк вычисляются их длины и сохраняются в переменных l1, l2, l3, l4.
Выполняется проверка, какая из строк имеет наибольшую длину. Для этого сравниваются длины строк s1, s2, s3, s4. Если длина строки s1 больше, чем у остальных, выводится сообщение о том, что наибольшая длина у 1 строки. Аналогично проверяются строки s2, s3, s4.
Программа завершается.