Задача 8 Урок 18

Задача 8 Урок 18:

На вход вашей программы подается строка вида:

<целоечисло><произвольное число пробелов> <арифм.операция> <произвольное число пробелов> <целоечисло>

например:

1 +  3

или

2 - 12

Напишите программу, которая разбирает вычисляет результат этого приложения (сделайте поддержку операций сложения и вычитания).

program u18z8;
var
  a,code,i,t: integer;
  s,b,n: string;

begin
  writeln('Vvedite stroku');
  readln(s);
  for i:=1 to length(s) do
  begin
    val(s[i], a, code);
    if (s[i]<>' ') then
      if (code=0) then //цифры записываем в "b"
        b:=b+s[i]
      else
      begin
        n:=s[i]; //символы записываем в "n"
        val(b,a);
        t:=a;
        b:=' ';
      end;
  end;
  val(b,a);
  if (n='+') then
    t:=t+a;
  if (n='-') then
    t:=t-a;
  write(t);
  readln();
end.