Найти максимальное из 3-x чисел с использованием процедуры — Pascal(Паскаль)

uses crt;
procedure Max(a,b,c:integer;var X:integer);
begin
X:=a;
if b>X then X:=b;
if c>X then X:=c;
end;
var a,b,c,y:integer;
begin
clrscr;
writeln ('Vvedite 3 chisla ');
readln(a,b,c);
Max(a,b,c,y);
write('Maximalnoe iz 3 chisel :  ',y);
readln
end.