Cant Find mistake

[dikabraz]

народ, последняя просьба, укажите на ошибку

PHP код:

Program x;
var s, b, f:string;
   per, per2, i, l, j, sum, sum2:integer;{10to2}
   summa1, summa2:integer;
   n: LongInt;
 
 Function Stepen(x,y:integer):integer;
begin if y>0 then stepen:=stepen(x,y-1)*x
else stepen:=1;
end;

Function Transl(A : String) : Integer;
Var L : Byte;
Begin
If A = ''
Then Transl := 0
Else Begin
L := length(A);
Case A[1] Of
'0' : Transl := Transl(Copy(A, 2, L - 1));
'1' : Transl := Stepen(2, L - 1) + Transl(Copy(A, 2, L - 1));
End
End
End;
 
   begin
writeln('числа берутся положительные!');
writeln('если хотите перевести число из десятичной в двоичную, то введите 1');{выбор действия}
writeln('если хотите перевести число из двоичной в десятичную то введите 2');
writeln('если хотите сложить 2 числа в двоичной системе счисления, то введите 3');
writeln('если хотите умножить 2 числа в двоичной системе счисления, то введите 4');
readln(per);
per2:=1;

if per=3 then begin {сложение чисел}
writeln('введите первое и второе число');
readln(summa1, summa2);
n:=summa1+summa2;
per:=1;
per2:=2; 
end;

if per=4 then begin {умножение чисел}
writeln('введите первное и вротое число');
readln(summa1, summa2);
n:=summa1*summa2;
per:=2;
per2:=2;
end;

if per=1 then begin {перевод из десятичной в двоичную}
write('введите десятичное число =');
  if per2=1 then readLn(n) else begin{считывание десятичного числа}
  n:=abs(n);{нахождение модуля числа для правильности рассчетов}
  while n>1 do
    begin
      str(n mod 2, f); {вычисление двоичного числа путем деления на 2}
      n:= n div 2;
      b:= f+b;
    end;
  str(n mod 2,s);
  b:= f+b;
  writeLn('Двоичное число = ',b);
end;
end;

if per=2 then begin {из двоичной в десятичную}
repeat
j:=0;
writeln('Введите число в двоичной системе:');
if per2=1 then Readln(s) else begin
readln(s);
writeln('Desatichnoe chislo N= ', Transl(S));
readln;
end;
end. 


на последнем end. вылазит 113 ошибка, а так все прет...
пожалуйста, очень срочно