Определить максимальное значение среди чисел x и y,минимальное значение среди чисел a и b.числа x и y, a и b вводятся с клавиатуры.результат работы программы выводится на экран

Var
  a, b, x, y, max, min: real;

begin
  write('Введите x и y: ');
  read(x, y);
  write('Введите a и b: ');
  read(a, b);
  if a < b then
  begin
    min := a;
  end
  else min := b;
  if x > y then
  begin
    max := x;
  end
  else max := y;
  writeln('max для x и y: ', max);
  writeln('min для a и b: ', min);
 
end.