Не работает код. Ошибка

program interpretator;
type pozint=0..maxint;
var line: string;
a,b : pozint;
znak: char;
flag:boolean;
rezult : integer;
procedure propusk( stroka:string; m:byte; var n:byte);
begin
n:=m;
while (stroka [n]=' ') and (n<length (stroka)) do
n:=n+1;
end;
function cifra (c: char) : boolean;
begin
cifra:=(c>='0') and (c<='9')
end;
function sintax (stroka : string ) : boolean;
var I : byte;
begin
Sintax := true;
for I:=1 to length (stroka) do
if not ((stroka[I] = ' ') or cifra (stroka[I]) or (stroka[I]= '+') or (stroka[I]= '-') or (stroka[I]= '*' or (stroka[I]= '=') )
then sintax:=false;
end;
function semantika (stroka: string): boolean;
var I : byte;
begin
semantika :=true;
propusk (stroka,1,I);
if not cifra (stroka[I])
then
begin
semantika :=false;
exit
end;
 
while cifra (stroka[I]) do
I:=I+1;
propush (stroka,I,I);
if not ((stroka[I]= '+') or (stroka[I]= '-') or (stroka[I]= '*'))
then
begin
semantika:=false;
exit
end;
I:=I+1;
propusk (stroka,I,I);
If Not Cifra(Stroka[I])
Then
Begin
 Semantika:=False;
 Exit
 End;
 While Cifra (Stroka[I]) Do
 I:=I+1;
 Propusk (Stroka,I,I);
If Stroka [I]<>'='
Then
Begin
Semantika := False;
Exit
End;
I:=I+1;
Propusk(Stroka ,I,I);
If I< Length(Stroka)
Then
Begin
 Semantika:=False;
Exit
End
End;
Procedure Operand (Stroka:String; Var A,B: PozInt;
Var Z: Char; Var Flag: Boolean);
Var P,Q: String;
I:Byte;
Code: Integer;
Function Error(S:String):Boolean;
{Функция принимает значение True,если в строке S находится число, превышающее максимальное целое,
и False - в противном случае}
Const Lim ='32767';
Var I: Byte;
Begin
If Length(s)>5
Then Error:=True
Else If Length(s)<5
Then Error:= False
Else Error :=S>Lim
End;
Begin
Flag := True;
I:=1;
Propusk(Stroka,I,I);
Q:='';
While Cifra (Stroka[I]) Do
Begin
Q:=Q+stroka(I);
I:=I+I;
end;
If Error(Q)
Then
Begin
    Flag:=False;
    Exit
End;
Propusk (Stroka,I,I);
Z:=Stroka(I);
I:=I+1;
Propusk (Stroka,I,I);
P:='';
While Cifra (Stroka[I]) Do
Begin
P:=P+Stroka[I];
I:=I+1;
End;
If error (P);
Then
Begin
Flag:=False;
Exit
End;
val (Q,A,Code);
Val (P,B,Code);
end;
Q:=Q+stroka(I);
I:=I+I;
end;
If Error(Q)
Then
Begin
    Flag:=False;
    Exit
End;
Propusk (Stroka,I,I);
Z:=Stroka(I);
I:=I+1;
Propusk (Stroka,I,I);
P:='';
While Cifra (Stroka[I]) Do
Begin
P:=P+Stroka[I];
I:=I+1;
End;
If error (P);
Then
Begin
Flag:=False;
Exit
End;
val (Q,A,Code);
Val (P,B,Code);
end;
Begin
Writeln('введите выражение:');
Writeln;
Read (Line);
if not Sintax(line)
Then writeln('недопустимые символы')
Else if not semantika(line)
then writeln('неверное выражение')
else
begin
Operand (Line,A,B,Znak,Flag);
if not Flag
Then Writeln ('слишком большие операнды')
else
begin
Calc (A,B,Znak,Result,Flag);
if not Flag
Then Writeln ('большой результат')
else Writeln(Result)
end
end
end.