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

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

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

Имя         123

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

var s, str, s2: string;
    i, o, int, l, i1: integer;
begin
    write('Введите строку: ');
    readln(s);
    l := length(s);
    for i := 1 to l do
     if i1 = 0 then
      if s[i] <> ' ' then str += s[i]
      else i1 := 1
     else
      if s[i] <> ' ' then s2 += s[i];
    val(s2, int, o);
    writeln(str, ' ', int);
    readln();
end.