Найти наибольшую среди первых цифр чисел - Free Pascal

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

Дано 4 числа. найти первую цифру этих чисел и найти из этих 1 цифр найбольшую.(нужно зделать 2 процедурами. 1 процедура для нахождения первых цифр всех 4 чисел, и 2 процедура для сравнение этих цифр и нахождение найбольшей. и эти 2 процедуры надо написать в одной проге. помогите плиз.)

Решение задачи: «Найти наибольшую среди первых цифр чисел»

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

                            program pr;
var
  a, b, c, d: longint;
  f,s,t,fo:integer;
  ma:integer;
procedure firs(n: longint; var av: integer);
begin
  while n > 0 do 
  begin
    av := n mod 10;
    n := n div 10;
  end;
end;
procedure crav(x, y, z, v:integer;  var na: integer);
var
max:integer;
begin
  if (x > y) and (x > z) and (x > v) then
  begin
    max := x;
    end;
  if (y > x) and (y > z) and (y > v) then
  begin
    max := y;
    end;
  if (z > x) and (z > y) and (z > v) then
  begin
    max := z;
    end;
  if (v > x) and (v > y) and (v > z) then
  begin
    max := v;
    end;
    na:=max;
end;
begin
  writeln('Введите 4  числа');
  readln(a, b, c, d);
  firs(a, f);
  firs(b, s);
  firs(c, t);
  firs(d, fo);
  crav(f, s, t, fo, ma);
  writeln('Наибольшая: ', ma);
end.
                        