Решить : пользователь вводит 4 числа, найти максимальное и минимальное из этих чисел , 24 !

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]>max then max:=a[i]
      else if a[i]<min then min:=a[i]
    end;
  end;
  writeln('Максимальное значение ',max);
  writeln('Минимальное значение ',min);
end.