Найти минимальное и максимальное из данных чисел Pascal(Паскаль)

    program minmax;
    procedure minmax(var x,y:real);
    var t:real;
    begin
      if y<x then begin t:=x;x:=y;y:=t;end;
    end;
    var
      a,b,c,d:real;
    begin
      write('a,b,c,d=');readln(a,b,c,d);
      minmax(a,b);
      minmax(c,d);
      minmax(b,d);
      minmax(a,c);
      writeln('Min=',a:0:2);
      writeln('Max=',d:0:2);
    end.