Определить в каком числе 1 цифра наибольшая - Free Pascal

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

Дано 4 числа, определить в каком числе 1 цифра наибольшая

Решение задачи: «Определить в каком числе 1 цифра наибольшая»

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

program pr;
var
  a, b, c, d, f, s, t, fo: longint;
function firs(n: longint): integer;
var
  b: integer;
begin
  while n > 0 do 
  begin
    b := n mod 10;
    n := n div 10;
  end;
  firs := b;
end;
begin
  writeln('Введите 4  числа');
  readln(a, b, c, d);
  f := firs(a);
  s := firs(b);
  t := firs(c);
  fo := firs(d);
  if (f > s) and (f > t) and (f > fo) then
    writeln('у 1 числа наибольшая первая цифра: ', a);
  if (s > f) and (s > t) and (s > fo) then
    writeln('у 2 числа наибольшая первая цифра: ', b);
  if (t > f) and (t > s) and (t > fo) then
    writeln('у 3 числа наибольшая первая цифра: ', c);
  if (fo > s) and (fo > t) and (fo > f) then
    writeln('у 4  числа наибольшая первая цифра: ', d);
end.

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

Список действий в коде:

Ввод 4 чисел с помощью функции readln.
Вычисление наибольшей первой цифры для каждого числа с помощью функции firs.
Сравнение наибольших первых цифр для каждого числа.
Вывод сообщения о том, у какого числа наибольшая первая цифра.