Перевод чисел между Фибоначчиевой и десятичной системами счисления

uses crt;
var n : integer;
    f : array [1..46] of integer;
    i, j : integer;
    s : string;
begin
write('n=');
read(n);
f[1]:=1;
f[2]:=2;
for i:=3 to 46 do
f[i]:=f[i-1]+f[i-2];
i:=1;
while f[i+1]<=n do
i:=i+1;
s:='';
for j:=1 to i-1 do
s:=s+'0';
s:='1'+s;
n:=n-f[i];
while n>0 do
 begin
  j:=1;
  while f[j+1]<=n do j:=j+1;
  s[i+1-j]:='1';
  n:=n-f[j]
 end;
write(s);
end.

uses crt;
var s:string;
    c:char;
    n,i,f0,f1,f,res:integer;
begin
writeln('Введите число в Фибоначчиевой СС:');
readln(s);//сделать проверку что только 0 и 1 и нет 2х 1 рядом
if s='0' then res:=0
else if s='1' then res:=1
else begin
f0:=0;
f1:=1;
for i:=1 to length(s)div 2 do
 begin
  c:=s[i];
  s[i]:=s[length(s)-i+1];
  s[length(s)-i+1]:=c;
 end;
res:=0;
i:=1;
while i<=length(s) do
 begin
  f:=f0+f1;
  if s[i]='1' then res:=res+f;
  i:=i+1;
  f0:=f1;
  f1:=f;
 end;
end;
write(res);
end.

 for i:=1 to length(s) do
if s[i]<>1 and s[i]<>0 then begin writeln('число введено неверно'); exit;
end;

 i:=1;
while i<length(s) -1 do begin
if s[i]='1' and s[i+1]='1' then begin
writeln('соседние единицы');
exit;
i:=i+1;
end;

repeat
writeln('Введите число в Фибоначчиевой СС:');
readln(s);
k:=0;
for i:=1 to length(s) do
if not(s[i] in ['0','1'])or((i>1)and(s[i]='1')and(s[i-1]='1'))then k:=1;
if k=1 then writeln('Число введено неверно, повторите ввод');
until k=0;