Помогите пожалуйста
Ошибка в Pascal (встречен конец файла, а ожидался оператор)
program qq;
var a,b,c,max:integer;
begin
writeln('Введите три целых числа и найдите наибольшее из них');
read(a,b,c);
if a>b then begin
max:a;
end;
begin
if c>a then begin
max:c;
writeln('Наибольшее число',max);
end.