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

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

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

Имя         123

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

var i, j, n, c :integer;
    s, s_2, s_3 :string;

begin
  s := 'Name         123';
  for i := 1 to length(s) do
  begin
    val(s[i], n, c);
    if c = 1 then
      if s[i] = ' ' then
        continue
      else
        s_2 := s_2 + s[i]
    else
      s_3 := s_3 + s[i];
  end;
  val(s_3, n);
  j := n;
  writeln(s_2, '|', j);
  readln();
end.