Даны переменные a,b,c,d найти max и min в виде алгоритма

Var
  a, b, c, d, max, min: integer;

begin
  Write('Введите через пробел 4 целых числа->');
  Readln(a, b, c, d);
  max := a;
  min := a;
  if b > max then max := b;
  if c > max then max := c;
  if d > max then max := d;
  if b < min then min := b;
  if c < min then min := c;
  if d < min then min := d;
  Writeln('MAX=', max, ', MIN=', min)
end.

Тестовое решение:
Введите через пробел 4 целых числа->5 3 -2 4
MAX=5, MIN=-2