Заданы три целых числа a, b, c. Найти максимальное из них — Pascal(Паскаль)

program   pr1;
uses      crt;
var       max,a,b,c:integer;
begin
     writeln('vvedi chisla a,b,c');
     write('a=');readln(a);
     write('b=');readln(b);
     write('c=');readln(c);
     max:=a;
     if b>max then max:=b;
     if c>max then max:=c;
     writeln('max chislo- ',max);
end.