[SandreS]

Надо так сделать чтобы можно было взять любую строку по типу '4 + 5' и чтоб вычислялось значение при этом, то есть в данном случае на выходе 9 должно быть. И в принципе всё понятно но одно но есть. Я не понимаю как взять первое число, до первого пробела, записать его в одну переменную, затем символ в другую, и второе число после второго пробела в третью. С остальным проблем нет. На ум приходит что то типа этого.

Код:

var s,str:string; a,i:integer; c:char;
begin
s:='6 + 3 ';
for i := 1 to length(s) do
while s[i]<>' ' do
begin
    if s[i] in ['0'..'9']  then
    str:=str+s[i];
end;
writeln(str);
readln;
end.

Он не должен записывать всё по разным переменным, но хотя бы должен брать первое число, но оно не работает.