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

Задача 6 Урок 18Пользователь вводит в консоль строку вида:
Имя 123
-- т.е. слева имя и через произвольное количество пробелов число баллов. Разберите эту строку получив имя пользователя как значение в переменной типа string и число баллов в перееменной типа integer;
.

var
  a,code,i: integer;
  s,b,n: string;
begin
  writeln('enter your name and score');
  readln(s);
  n:='';
  b:='';
  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
      n:=n+s[i];   //буквы записываем в "n"
    val(b, a);
  end;
  write(n,'__',a);
  readln();
end. 

Вывод консоли:

enter your name and score
Vovan 1500
Vovan__1500