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

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

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

program U17Z4;
var
  i: integer;
  s: string;
procedure NameScore(s:string);
var w,k:string;
    f:Integer;
begin
  readln(s);
  for i:= 1 to length(s) do
  begin
    if (s[i]>='0')and(s[i]<='9') then
    begin
      w:=w+s[i];
      val(w,f)
    end
    else if (s[i]<>' ') then
    begin
      k:=k+s[i];
    end;
  end;
  writeln('Name :',' ',k);
  writeln('Balli :',' ',f)
end;
begin
    NameScore(s);
    readln();
end.                         

Решение без процедуры

program U15Z5;
var
  i,f: integer;
  s,w,k: string;
begin
  readln(s);
  for i:= 1 to length(s) do
  begin
    if (s[i]>='0')and(s[i]<='9') then
    begin
      w:=w+s[i];
      val(w,f)
    end
    else if (s[i]<>' ') then
    begin
      k:=k+s[i];
    end;
  end;
  writeln('Name :',' ',k);
  writeln('Balli :',' ',f);
  readln();
end.