Калькулятор на паскале

[Buratino]

Пишу калькулятор на паскале. Помогите найти ошибки!

program calculator;
var stroka,stroka0,stroka00: string;
    d,lens,i,N,len1,len2:integer;
    chisla:array[1..255]of real;
    chisla0:array[1..255]of real;
    chisla00:array[1..255]of real;



     procedure sortirovka;
     var i,s,cifra,N,len1,len2:integer;
      begin
       len1:=ord('0');
       len2:=ord('9');
       s:=1; N:=length(stroka00); cifra:=0;
       for i:=1 to N do
        begin
          if ((len1-ord(stroka00[i]))*(len2-ord(stroka00[i]))<= 0) then
           begin
               // write(ord(stroka00[i]),' ');
             chisla0[s]:=chisla0[s]*10+(ord(stroka00[s])-len1);
              if cifra=0 then
                begin
                cifra:=1;
                stroka0[s]:='#';
                s:=s+1;
              end;
           end;

          if ((len1-ord(stroka00[i]))*(len2-ord(stroka00[i]))> 0)  then
           begin
            stroka0[s]:=stroka00[i];
            s:=s+1;
            cifra:=0;
           end;
        end;

      end;
     

function schet(len1,len2:integer;symb:char):integer;
 var i,N:integer;
 begin
  i:=len1+1;                                  //len1 и len2 - координаты скобок
  N:=0;
  while (i<len2) do                                             //Подсчёт кол-ва знаков
   begin
   if stroka[i]=symb then N:=N+1;
   i:=i+1;
   end;
   Result:=N;
 end;
 

 procedure func(len1,len2:integer;symbol:char);                             //подсчёт всех функций в заданном интервале
  var k,d,i,N:integer;
      symbol0:char;
  begin
  case symbol of
  '+': begin symbol0:='-'; N:=schet(len1,len2,symbol)+schet(len1,len2,symbol0); end;
  '*': begin symbol0:='/'; N:=schet(len1,len2,symbol)+schet(len1,len2,symbol0); end;
  '^': begin symbol0:='^'; N:=schet(len1,len2,symbol); end;
  end;


  for d:=1 to N do
   begin
      if stroka='#' then break;
       i:=len1+1;
       while ((stroka[i])<>symbol)and((stroka[i])<>symbol0) do i:=i+1;
       case stroka[i] of
       '+': chisla[i-1]:=chisla[i-1]+chisla[i+1];
       '-': chisla[i-1]:=chisla[i-1]-chisla[i+1];
       '*': chisla[i-1]:=chisla[i-1]*chisla[i+1];
       '/': chisla[i-1]:=chisla[i-1]/chisla[i+1];
       '^': chisla[i-1]:=power(chisla[i-1],chisla[i+1]);
       end;
       for k:=i to (length(stroka)-2) do
        begin
        stroka[k]:=stroka[k+2];
        chisla[k]:=chisla[k+2];
        end;

      delete(stroka,length(stroka)-1,2);
   end;

  end;

Begin

for i:=1 to 255 do
begin
chisla[i]:=0;
chisla0[i]:=0;
end;

  readln(stroka00);
  sortirovka();

  
   for i:=1 to 255 do
begin
chisla[i]:=chisla0[i];
end;

  stroka:=stroka0;
  
  //stroka:='#*#/#+#+(#-#)^#';
  //chisla[1]:=1; chisla[3]:=12; chisla[5]:=6; chisla[7]:=2; chisla[10]:=7; chisla[12]:=6; chisla[15]:=2;

  lens:=length(stroka);
  
  N:=schet(0,lens+1,'(');
   i:=0;
  while(i<N) do
  begin
   d:=1;
   while stroka[d]<>')' do d:=d+1;
   len2:=d;
   while stroka[d]<>'(' do d:=d-1;
   len1:=d;
   func(len1,len2,'^');
   func(len1,len2,'*');
   func(len1,len2,'+');
   stroka[len1]:='#';
   chisla[len1]:=chisla[len1+1];
   for d:=(len1+1) to (length(stroka)-2) do
      begin
      stroka[d]:=stroka[d+2];
      chisla[d]:=chisla[d+2];
      end;
    delete(stroka,length(stroka)-1,2);
   i:=i+1;
  end  ;
  
  
   len1:=0; len2:=length(stroka)+1;
   func(len1,len2,'^');
   func(len1,len2,'*');
   func(len1,len2,'+');

  
  writeln(chisla[1],' ');
 End.

[KingOfNothing]

Присваивать массивы вот так нельзя:

Var
chisla:array[1..255]of real;
chisla0:array[1..255]of real;
chisla:=chisla0;

У меня программа не компилируется.

[Buratino]

А как надо? Я на PascalABC это писал...

[KingOfNothing]

А у тебя компилируется в PascalABC?
массивы обычно копируется поэлементно

[Buratino]

Скопировал поэлементно, всё равно не работает.

Компилируется.

[KingOfNothing]

Я не могу посмотреть, что не работает, пока не могу запустить программу. Исправь, пожалуйста, код в первом сообщении, чтобы он компилировался на Turbo Pascal 7.0. У меня нет ABC, не смогу помочь иначе

[Buratino]

Я вроде бы уже исправил..

[KingOfNothing]

ага, компилируется, а теперь скажи, что программа ожидает на ввод, какие выражения?
например, 10 + 20? или как?

[Buratino]

Ну да. Ошибка, скорее всего в начале. В коде написан пример, и, если закомментировать всё, что в теле программы выше, то считает правильно

[KingOfNothing]

И что именно должно читать, какой формат ввода?