Нужно написать программу, которая присваивает "y" значение большее из 3 чисел введеных с клавиатуры. заранее за ответ : -*

var a, b, c, y, d:integer;
begin
   read (a, b, c);
   if a<b then
      begin
      d:=a;
      a:=b;
      b:=d;
      end;
   if b<c then
      begin
      d:=c;
      c:=b;
      b:=d;
      end;
   if a<b then
      begin
      d:=a;
      a:=b;
      b:=d;
      end;
   y:=a;
   writeln(y);
end.