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

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

Пользователь вводит в консоль строки вида (имя + произвольное число пробелов + балл):
Вася 485
Коля 555
Юра 61
..........
....
end // признак завершения ввода
(пока не введёт строку end) -- где слева указаны имена участников, а справа -- число баллов.
Используя массив строк и массив целых чисел (пусть оба массива будут максимальной длины =3) считайте отдельно имена и баллы и определите победителя, выведя его имя и полученный им балл.

program lesson17_5;
var
    s: array[1..10] of string;
    strArr: array[1..3] of string;
    intArr: array[1..3] of integer;
    name, sBall: string;
    i, j, ball, max, index: integer;
begin
    writeln('specify the name and the ball: ');

    for i := 1 to 10 do
    begin
        write(i, '. ');
        readln(s[i]);
        if s[i] = 'end' then
            break;
	end;

    ball := 0;
    for i := low(strArr) to high(strArr) do
    begin
        name := '';
        sBall := '';
        for j := 1 to length(s[i]) do
            if (s[i][j] >= '0') and (s[i][j] <= '9') then
                sBall := sBall + s[i][j]
		    else if s[i][j] <> ' ' then
		        name := name + s[i][j];

        val(sBall, ball);
        strArr[i] := name;
        intArr[i] := ball;
	end;

    max := 0;
    for i := 1 to 3 do
        if intArr[i] > max then
        begin
            max := intArr[i];
            index := i;
		end;

    writeln('winner: ', strArr[index], ' ', intArr[index]);
    readln();
end.