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

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

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

Имя         123

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

program U17Z3;
var  s,imya: string;
    i,code,ball,j: integer;
begin
  writeln('vvedite stroku');
  readln(s);
  imya:='';
  i:=1;
  while (s[i]<>' ') do
  begin
    imya:=imya+s[i];
    i:=i+1;
  end;
  i:=i+1;
  while (s[i]=' ') do
  begin
    i:=i+1;
  end;
  for j:=i to length(s) do
  begin
    str:=str+s[i];
    i:=i+1;
  end;
  val(str,ball,code);
  writeln('imya: ',imya);
  writeln('ball: ',ball);
  readln();
end.