Напишите функцию, которая возвращает минимальное из чисел a,b,c,d — Pascal(Паскаль)

Program MiN;

var
  a, b, c, d: real;

function minim(a, b, c, d: real): real;
var
  MiN: real;
begin
  MiN := a;
  if bthen MiN := b;
    if cthen MiN := c;
      if dthen MiN := d;
        minim := MiN;
end;

begin
  writeln('Wedite koeficient A,B,C,D');
  readln(a, b, c, d);

  writeln('MIN= ', minim(a, b, c, d));

  readln;

end.