задание 4 урок 18

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

var
s,s1,s2:string;
i,Chislo: integer;
begin
  Writeln('vvedite: Name  123');
  readln(s);
  s:= ('Name   123');
  s1:='';
  s2:='';
  for i:= 1 to length(s)  do
  begin
    if (s[i]>='0')and(s[i]<='9')then
    begin
       s1:= s1 + s[i];
       val(S1, Chislo);
    end
    else if s[i] <> '' then
      S2:= s2 + s[i];
  end;
  Writeln('Stroka is:: ', s2);
  Writeln('Chislo is: ', Chislo);
  Readln();
end.