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

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.