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

Задача 5 Урок 17:

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

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

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

var s, str, s2: string;
    i, o, int, l, i1, max, id: integer;
    a: array [1..3] of string;
    b: array [1..3] of integer;
begin
  while s <> 'end' do
   begin
    id += 1;
    write('Введите строку: ');
    readln(s);
    l := length(s);
    if (id < 4) and (s <> 'end') then
     begin
      for i := 1 to l do
       if i1 = 0 then
        if s[i] <> ' ' then str += s[i]
        else i1 := 1
       else
        if s[i] <> ' ' then s2 += s[i];
      val(s2, int, o);
      a[id] := str;
      b[id] := int;
      i1 := 0;
      str := '';
      s2 := '';
     end;
   end;
  max := b[1];
  i := 1;
  for id := 1 to 3 do
   if max < b[id] then
    begin
     max := b[id];
     i := id;
    end;
  writeln('Победитель: ', a[i], '  ', 'балл: ', b[i]);
  readln();
end.