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

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

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

Имя 123

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

var s,name,x:string; i,bal,l:integer;
begin
  readln(s);
  for i:=1 to Length(s) do
  begin
    if (s[i]>='0')and (s[i]<='9')then
      x:=x+s[i]
    else if s[i]<>' ' then
      name:=name+s[i];
  end;
  val(x,bal,l);
  write(name,' ',bal);
  readln();
end.