Написать программу поиска max числа, используя процедуру поиска большего из двух чисел. a, b, c, d – действительные числа — Pascal(Паскаль)

Program p_13_2;

Var
  a, b, c, d: real;
  mab, mcd, max: real procedure max2(x, y: real; var z: real);

begin
  If x >= y Then
    z := x
  Else
    z := y;
end;

begin
  Write(’ Vvedite 4 isla ’);
  Readln(a, b, c, d);
  max2(a, b, mab);
  max2(c, d, mcd);
  max2(mab, mcd, max);
  writeln(’ Bolshee 4 islo = ’, max);

end.