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

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

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

Имя         123

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

program u18z5;
var
  a,code,i: integer;
  s,b,n: string;
begin
  writeln('Vvedite stroku');
  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.