Задача по Pascal

Даны три числа a, b, с. Определить, какое из них равно d.
Если ни одно не равно d, то найти max(j — a, d — b, d — c).
pascal goto
----------------------------
Ребят, не волоку я в этом. Нужно решить задачу ( не мне ). Помогите.

var a,b,c,d,min:real;

   flag: boolean;

begin

   flag:=true;

   writeln('Enter A, B, C, D numbers:');

   readln(a,b,c,d);

   if (a=d) then begin

      writeln('a equals to d!');

      flag:=false;

      min:=a;

   end;

   if (b=d) then begin

      writeln('b equals to d!');

      flag:=false;

      if (b<min) then min:=b;

   end;

   if (c=d) then begin

      writeln('c equals to d!');

      flag:=false;

      if (c<min) then min:=c;

   end;

   if flag then writeln('Max difference: ',d-min);

end.