Написать Калькулятор в паскале

[CuMnCoH]

Добрый день,ребята.Нуждаюсь в вашей помощи.Кто сможет,помогите плиз)

На паскале ABC NET надо написать калькулятор,обеспечивающий ввод строки с простейшим арифметическим выражением (например,1+2+3+4+5-6)
компьютер должен выводить правильный ответ)

вот мой код,но в нем,что то не то...
Если есть возможность подредактируйте или другой вариант,как это сделать)

var stroka:string;
    str:string;

    i,x,y,n,a:integer;
begin
y:=0;
n:=0;
x:=0;
i:=0;
writeln('введите выражение, в конце поставить =');readln(stroka);
repeat
    begin
              if stroka[i] in ['-','+','='] then
       begin
       str:=copy(stroka,0,i-1);
       Val(str,y,a);
              if n=0 then x:=y else
              if n=1 then x:=x+y else
              if n=2 then x:=x-y;

              if stroka[i] in ['+'] then n:=1 else
              if stroka[i] in ['-'] then n:=2 else
              if stroka[i] in ['='] then n:=3;

       delete(stroka,1,i);


       i:=0;

       end
       else i:=i+1;
    end;
until n=3;


       

writeln(x);

end.

[Redapple462]

Слушай поставь после уравнения 1+2+3+4+5-6 (=) у меня пашол и твой код и твой пример)))))

[Redapple462]

И кстати я новенький не подскажешь где тут можно найти основу паскаля