Урок 17. Задача №4. Решение.

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

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

Имя         123

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

procedure InspectionString(s : string; var Name, Point : string);
var i : integer;
begin
  for i := 1 to length(s) do
  begin
    if(s[i] >= '0') and (s[i] <= '9') then
      Point += s[i]
    else
      Name += s[i];
  end;
end;

function OtherVal(S : string; point2 : integer): integer;
begin
  val(S, point2);
  result := point2;
end;

var str, name, tmp : string;
  point : integer;
begin
  writeln('Enter your name:     enter your points: ');
  readln(str);
  InspectionString(str, name, tmp);
  point := OtherVal(tmp, point);
  writeln();
  writeln(name, point);

  readln(); // Удержание консоль
end.// Завершение программы