Задача 7 Урок 18

Задача 7 Урок 18

Пользователь вводит в консоль строки вида (имя + произвольное число пробелов + балл):

Вася 485
Коля 555
Юра 61
..........
....
end // признак завершения ввода

(пока не введёт строку end) -- где слева указаны имена участников, а справа -- число баллов.
Используя массив строк и массив целых чисел (пусть оба массива будут максимальной длины =3) считайте отдельно имена и баллы и определите победителя, выведя его имя и полученный им балл.

var i,j,max,l:integer; Nmax:string; bal:array [1..3] of integer; x,name:array [1..3] of string; s:array [1..4] of string;

begin
  for i:=1 to 4 do
  begin
    readln(s[i]);
    if s[i]='end' then
      break;
    for j:=1 to Length(s[i]) do
    begin
      if (s[i][j]>='0')and (s[i][j]<='9')then
        x[i]:=x[i]+s[i][j]
      else if s[i][j]<>' ' then
        name[i]:=name[i]+s[i][j];
    end;
    val(x[i],bal[i],l);
  end;

  max:=bal[1];
  for i:=2 to 3 do
    if bal[i]>max then
    begin
      max:=bal[i];
      Nmax:=name[i];
    end
    else
    begin
      max:=bal[i-1];
      Nmax:=name[i-1];
    end;
  write(Nmax,' ',max);
  readln();
end.