Задача 4 Урок 17

Задача 4 Урок 17

Пользователь вводит в консоль строку вида:

Имя         123

т.е. слева имя и через произвольное количество пробелов число баллов. Разберите эту строку получив имя пользователя как значение в переменной типа string и число баллов в переменной типа integer;

var i, Code,scoreInt: integer;
    s, Name,scoreStr: string;

begin
  writeln('vvedi stoky');
  readln(s);
  for i := 1 to length(s) do
    begin
      if((s[i] >= '0') and (s[i] <= '9')) then
        scoreStr := scoreStr + s[i]
      else if(s[i] <> ' ') then
        Name := Name + s[i];
    end;
  Val(scoreStr, scoreInt, Code);
  writeln('Name: ',Name);
  writeln('Score: ',scoreInt);
  readln();
end.        

результат:

vvedi stoky
goose     98

Name: goose
Score: 98