калькулятор восмеричной системы

[Aleks-1]

Привет всем. помогите пожалуйста исправить ошибки в програмке, и доделать недочеты, а то я туплю и не вижу ошибки.Просьба обьяснять по понятней)) За ранее большое спасибо!

PROGRAM CALCULIATOR;
USES CRT;
CONST A=['1','2','3','4','5','6','7','0'];
B=['=','-','/','*'];
VAR C,N,M,D,W,E,T,Y,X,O,I,P,J: REAL;
S,L,K,R,G: STRING;
BEGIN CLRSCR; L:=''; K:=''; C:=0; D:=1; W:=1; E:=0;
WRITELN('Calc vipolnil Poslov'); N:=1;
REPEAT
READ(S);
IF S IN A THEN L:=L+S; ELSE IF S IN B THEN BEGIN K:=L;
CASE S OF
'+': R:='+';
'-': R:='-';
'*': R:='*';
'/': R:='/'; END;
ELSE IF S:='=' THEN C:=1; ELSE WRITELN('VVEDENNOE CHISLO NE PODHODIT');
UNTIL C>=1;
FOR N:=LENGTH(K) DOWNTO 1 DO BEGIN
FOR M:=1 TO D DO W:=W*8; VAL(K; VAR T; VAR CODE: INTEGER);
E:=E+T*W; D:=D+1; END; W:=1; D:=1; N:=1; S:='';
FOR N:=LENGTH(L) DOWNTO 1 DO BEGIN
FOR M:=1 TO D DO W:=W*8; VAL(L; VAR Y; VAR CODE: INTEGER);
X:=X+Y*W; D:=D+1; END;
CASE R OF
'+': O:=E+X;
'-': O:=E-X;
'*': O:=E*X;
'/': O:=E/X;
WHILE O>8 DO BEGIN
I:=O TRUNC 8;
P:=O INT 8;
O:=O-P; SIR(P;G)
S:=S+G; END;
FOR J:=LENGTH(S) DOWNTO 1 DO
WRITE(S[J]);
END.