Урок 18. Задача 6.

Урок 18. Задача 6.

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

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

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

type arrI = array[1..3] of integer;
type arrS = array[1..3] of string;
var i, j, n, c, ind :integer;
    s, s_2, s_3 :string;
    aI :arrI;
    Sa :arrS;

function get_index(aI :arrI) :integer;
begin
  if aI[1] < aI[2] then
    if aI[2] < aI[3] then
      get_index := 3
    else
      get_index := 2
  else
    if aI[1] < aI[3] then
      get_index := 3
    else
      get_index := 1;
end;

begin
  j := 0;
  while true do
  begin
    j := j + 1;
    writeln('enter');
    readln(s);
    if s = 'end' then
      break;

    for i := 1 to length(s) do
    begin
      val(s[i], n, c);
      if c = 1 then
        if s[i] = ' ' then
          continue
        else
          s_2 := s_2 + s[i]
      else
        s_3 := s_3 + s[i];
    end;
    val(s_3, n);
    aI[j] := n;
    Sa[j] := s_2;
    s_2 := '';
    s_3 := '';
  end;
  ind := get_index(aI);
  writeln('Победитель - ', Sa[ind], ' число - ', aI[ind]);
end.