Даны переменные 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   if c   if d   Writeln(MAX=, max, , MIN=, min)
end.

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