с файла считать пример и результат записать, подскажите что надо сделать Опции

[maksimla]

да файл в файле записан пример 2+2 надо в файл записать 4 или можетбыть записана вот так (2+2)*8 должны результат записать 32
числа от 0 до 9 и знаки +,-,* и еще эти скобки ()
с чего начать?
вот написал сперва чтобы в массив все занесло но получилось ошибка чегото что я неправильно сделал?

program staciakampis;
var  i:byte;
pradDuom,rezult: text;
  n:array [1..255] of string;
begin
assign (pradDuom, 'duom.TXT');
assign (rezult, 'rez.TXT');
reset (pradDuom);
rewrite (rezult);
inc(i);
while  n[i]<' ' do
begin
readln(pradduom,n[i]);
write(n[i]);
inc(i)
end;
     readln;
 close(pradduom);
 close(rezult);
end.

после загона в массив всех знаков хотел я обратится к case n[i] of
или надо или можно както по другому сделать ?

[maksimla]

был немношко я занет вот теперь я переставил там что показали для себя переставил сечас осталось сделать чтобы со скобками читало и ответ правильный был

Const
 cmPUSH  = 0;
 cmMINUS = 1;
 cmPLUS  = 2;
 cmMUL   = 3;
 cmDIV   = 4;

Type
 code_mem=record
  a:array[0..1023] of byte;
  p:integer;
 end;

Var
 Stack:array[0..100] of real;

Procedure Parse(s:string;var code:code_mem);
Var
 i,j:byte;
 a,b:integer;
Begin
 j:=0;
 for i:=byte(s[0]) downto 1 do
   case s[i] of
     ')': inc(j);
     '(': dec(j);
     '-': if j=0 then
            begin
              parse(copy(s,1,i-1),code);
              parse(copy(s,i+1,byte(s[0])-i),code);
              code.a[code.p]:=cmMINUS;
              inc(code.p);
              exit;
            end;
     '+': if j=0 then
            begin
              parse(copy(s,1,i-1),code);
              parse(copy(s,i+1,byte(s[0])-i),code);
              code.a[code.p]:=cmPLUS;
              inc(code.p);
              exit;
            end;
   end;
 j:=0;
 for i:=byte(s[0]) downto 1 do
   case s[i] of
     '(': inc(j);
     ')': dec(j);
     '/': if j=0 then
            begin
              parse(copy(s,1,i-1),code);
              parse(copy(s,i+1,byte(s[0])-i),code);
              code.a[code.p]:=cmDIV;
              inc(code.p);
              exit;
            end;
     '*': if j=0 then
            begin
              parse(copy(s,1,i-1),code);
              parse(copy(s,i+1,byte(s[0])-i),code);
              code.a[code.p]:=cmMUL;
              inc(code.p);
              exit;
            end;
   end;

  val(s,a,b);

 if b=0 then
   begin
     { ĄĆĄ !}
     code.a[code.p]:=cmPUSH;
     inc(code.p);
     code.a[code.p]:=lo(a);
     inc(code.p);
     exit
   end;
 if s='' then
   begin
     code.a[code.p]:=cmPUSH;
     inc(code.p);
     code.a[code.p]:=0;
     inc(code.p);
     exit
   end;
 if (s[1]='(') and (s[byte(s[0])]=')') then
   begin
     i:=2;
     j:=1;
     while (i<(byte(s[0])-1)) and (j>0) do
       begin
         if s[i]='(' then inc(j);
         if s[i]=')' then dec(j);
         inc(i);
       end;
     if j<>0 then
       parse(copy(s,2,byte(s[0])-2),code);
   end;
End;

Function Calk(code:code_mem):real;
Var
 i:byte;
 StackPointer:byte;
Begin
 i:=0;
 StackPointer:=0;
 while (i<code.p) do
   Begin
     case code.a[i] of
       cmPUSH :Begin
                inc(i);
                Stack[StackPointer]:=code.a[i];
                inc(StackPointer);
               end;
       cmMINUS:Begin
                Dec(StackPointer);
                Stack[StackPointer-1]:=Stack[StackPointer-1]-Stack[StackPointer];
               End;
       cmPLUS :Begin
                Dec(StackPointer);
                Stack[StackPointer-1]:=Stack[StackPointer-1]+Stack[StackPointer];
               End;
       cmDIV  :Begin
                Dec(StackPointer);
                Stack[StackPointer-1]:=Stack[StackPointer-1]/Stack[StackPointer];
               End;
       cmMUL  :Begin
                Dec(StackPointer);
                Stack[StackPointer-1]:=Stack[StackPointer-1]*Stack[StackPointer];
               End;
     End;
     inc(i);
   End;
   Calk:=Stack[0];
End;

Var
q:code_mem;
s:string;
pradDuom,rezult: text;

BEGIN
q.p:=0;
assign (pradDuom, 'duom.TXT');
assign (rezult, 'rez.TXT');
reset (pradDuom);
rewrite (rezult);
readln(pradduom,s);
parse(s,q);
write(rezult,calk(q):0:0);
 close(pradduom);
 close(rezult);
END.