Паскаль задача.

[sulsher]

подскажите, что не так ?

задача: Дан одномерный массив, если есть хотя бы одно число Фибоначчи, то вектор инвертировать.

program a3;
uses crt;
var a:array[1..50] of integer;
f0,f1,f2,i,n,p,m: integer;
f: boolean;
begin
readln(n);
for i:=1 to n do
readln(a[i]);
for i:= 1 to n do
begin 
f0:=1;
f1:=1;
f:=true;
while f1< a[i] do
begin
f2:= f1+ g0;
f0:= f1;
f1:= f2;
end;
end;
of f1= false then
begin
m:= n div 2;
for i:= 1 to m do
begin
p:= a[i];
a[i]:=a[n-i+1];
a[n- i +1]:=p;
end;
for i:= 1 to n do
writeln(a[i]);
end;
if f= true then
begin;
for i:=1 to n do
writeln(a[i]);
readkey;
end;
end.

From Stilet: Представь что ты так документы будешь оформлять - наполовину. Тебя наполовину уволят.

[Риндера]

Во-первых, можно бы оформить код тегом "решеточкой".
Во-вторых, а что именно не так? Ошибка? Или криво работает?

Строки с явными ошибками выделила.

program a3;
uses crt;
var a:array[1..50] of integer;
f0,f1,f2,i,n,p,m: integer;
f: boolean;
begin
readln(n);
for i:=1 to n do
readln(a[i]);
for i:= 1 to n do
begin 
f0:=1;
f1:=1;
f:=true;
while f1< a[i] do
begin
f2:= f1+ g0;
f0:= f1;
f1:= f2;
end;
end;
of f1= false then
begin
m:= n div 2;
for i:= 1 to m do
begin
p:= a[i];
a[i]:=a[n-i+1];
a[n- i +1]:=p;
end;
for i:= 1 to n do
writeln(a[i]);
end;
if f= true then
begin;
for i:=1 to n do
writeln(a[i]);
readkey;
end;
end.