Калькулятор на Паскале (проблемы на Linux)

[Rebel666]

Доброго времени суток! С заданием проблем нет, проблема с компиляцией на Lunix'е! Выдает ошибку в последнем FOR'е...может напортачил, но на XPюшке всё путем идет...но сдавать мне надо именно на линуксе))
Вот задание на всякий: Строка текста содержит целые цифры и символы + и -. Пробелы игнорируются. Получить арифметическое значение выражения. Пример: "9+5-3=11". Вывести исходный текст и результат.
Помогите пожалуйста! Очень срочно надо!

program calc;
uses crt;
var
   s : string;
   ar : array [1..100] of integer;
   op : array [1..100] of char;
   i, n, kar, kop : integer;
   f : boolean;
 
{Beret chislo}
Procedure Chislo;
var d, a, p, j : integer;
    b : boolean;
begin
  b := false;
  p := 0;
  for j := i to n do begin
    a := Ord(s[j]);
    if (a > 47) and (a < 58)
    then begin
      a := a - 48;
      p := p*10 + a;
      b := true;
      inc(i);
    end
    else begin
      dec(i);break;
    end;
  end;
 
  if b
  then begin
    inc(kar);
    ar[kar] := p;
  end;
end;
 
{Sdvig massivov}
Procedure Sdvig(b : integer);
var i : integer;
begin
  for i := b to kop do begin
    ar[i+1] := ar[i+2];
    op[i] := op[i+1];
  end;
  kop := kop - 1;
  kar := kar - 1;
 
  for i := 1 to kar do
    write(ar[i], op[i]);
  writeln;
end;
 
 
begin
     clrscr;
     writeln('Vvedite primer dlya resheniya:');
     Readln(s);
     n := length(s);
     i := 1;
     f := false;
 
     while (i <= n) do begin
       Chislo;
 
       inc(i);
       if i > n
       then break;
       if (s[i] = '+') or (s[i] = '-')
       then begin
         inc(kop);
         op[kop] := s[i];
       end
       else
         if s[i] <> ' '
         then begin
           f := true;
           break;
         end;
 
       inc(i);
     end;
 
     write('Numerics : ');
     For i := 1 to kar do
       write(ar[i], ' ');
 
     writeln;
     write('Operations : ');
     For i := 1 to kop do
       write(op[i], ' ');
     writeln;
 
     if f
     then Writeln('Error')
     else
     {Vipolnenie operaciy}
     begin
       {+ -}
       for i := 1 to kop do
         if (op[i] = '+') or (op[i] = '-')
         then begin
 
           if op[i] = '+'
           then ar[i] := ar[i] + ar[i+1];
 
           if op[i] = '-'
           then ar[i] := ar[i] - ar[i+1];
 
           Sdvig(i);
           i := i - 1;
         end;
 
       Writeln('Result = ', ar[1]);
     end;
 
     Readln;
end.

[fbus]

ну хотя бы текст ошибки в студию

[Rebel666]

(111,22) Error: Illegal assignment to for-loop variable "i"
Вот ошибка...и честно говоря хз как её исправить...пробовал переделывать цикл FOR в REPEAT-UNTIL, но тогда работает не правильно

[eoln]

Правильно ругает (а может и нет ). Нельзя изменять значение счётчика цикла FOR. Вобщем правильно что менял, но лучше менять на while, чтобы не допускать лишних итераций. Примерно так.

     begin
       {+ -}
       i:=0;
       while i < kop do begin//for i := 1 to kop do
         inc(i);//i := i + 1;
         if (op[i] = '+') or (op[i] = '-')
         then begin
 
           if op[i] = '+'
           then ar[i] := ar[i] + ar[i+1];
 
           if op[i] = '-'
           then ar[i] := ar[i] - ar[i+1];
 
           Sdvig(i);
           i := i - 1;
         end;
       end;//while
 
       Writeln('Result = ', ar[1]);
     end;