Ошибка в программе PASCAL
Код решения задачи, проверьте на синтаксис и грамотность пожалуйста.
Есть ли ошибки?? ?
==============================================
function Max(A, B : Longint) : Longint;
begin
if A > B then
Max := A
else
Max := B;
end;
function Find(N : Longint) : Longint;
var
Find := MaxN;
end;
const
N : Longint = 19209;
begin
WriteLn('Input = ', N);
WriteLn('Output = ', Find(N));
end.
==============================================