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

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

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

Имя         123

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

var
  I, h, Code : Integer;
  S, P, k: string;
begin
 writeln('Enter name and points');
 readln(S);
 for h:=1 to length(S) do
   begin
     if Not((S[h]>='0')and(S[h]<='9')) AND (S[h]<>' ') then
       P:=P+S[h]          //если не число и не пробел string
     else if (S[h]>='0')and(S[h]<='9') then
       k:=k+S[h];           //если число сохраняем в string
     if h=length(S) then   //после последнего символа число(string)
       Val(k, I, Code);     //преобразуем  в integer
   end;
 if (Code=0) then
   begin
     writeln('Name= ',P);
     writeln('points= ',I);
   end
 else
   writeln('Error');
 readln();
 end.