Question

Помогите с информатикой! Нужно составить функцию. Ругается программа, не могу найти ошибку(
"Составить функцию, которая определяет наибольшее из трех чисел"

function max (a,b,c:integer): integer;

var x: integer;

begin

writeln ('Введите три числа');

read (a,b,c);

if a>b then x:=a

else x:=b;

if b>c then x:=b

else x:=c;

Max:=x;

writeln ('Наибольшее число ',x);

end;

Ошибка: Встречен конец файла, а ожидалось Begin