Срочно! Помогите найти ошибку в программе... (не читает паскаль)

Program fibonacci;
Var
n:byte;
function fib (n:byte):integer;
begin
if n>2
then fib:=1;
end;
begin
writeln('программа, вычисляющая п-е число Фибоначчи')
write('n=')
readln(n);
write('n-е число Фибоначчи:',fib(n));
end

та не стояли пару ; ток вроде сама прога не правильная она не правильно выводит числа я вторым скрином приложу еще свою прогу написанную по этой задачи 

Program fibonacci;Varn:byte;function fib (n:byte):integer;beginif n<=2 then fib:=1else fib:=fib(n-2)+fib(n-1);end;beginwriteln('программа, вычисляющая п-е число Фибоначчи');write('n=');readln(n);write('n-е число Фибоначчи:',fib(n));end.Пример:программа, вычисляющая п-е число Фибоначчиn=7n-е число Фибоначчи:13