Решить задачу: юзер вводит 4 числа, отыскать наибольшее и минимальное из

Program test;
var
  n,i,min,max:integer;
  a:array[1..4] of integer;
begin
  for i:=1 to 4 do begin
    readln(a[i]);
    if i=1 then begin
      min:=a[i];max:=a[i];
    end
    else
    begin
      if a[i]gt;max then max:=a[i]
      else if a[i]lt;min then min:=a[i]
    end;
  end;
  writeln('Максимальное значение ',max);
  writeln('Малое значение ',min);
end.