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

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

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

Вася         485
Коля       555
Юра        61
..........
....

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

program U17Z3;
var mimya:array [1..3] of string;
    mball:array [1..3] of integer;
    s,imya,str: string;
    i,code,ball,j,u: integer;
begin
  writeln('vvedite stroki');
  for i:=1 to 3 do
  begin
    readln(s);
    if (s='end') then
      break;
    j:=1;
    str:='';
    imya:='';
    while (s[j]<>' ') do
    begin
      imya:=imya+s[j];
      j:=j+1;
    end;
    mimya[i]:=imya;
    while (s[j]=' ') do
      j:=j+1;
    for u:=j to length(s) do
      str:=str+s[u];
    val(str,ball,code);
    mball[i]:=ball;
  end;
  if (mball[1]>mball[2]) then
    if (mball[1]>mball[3]) then
      writeln(mimya[1],' ', mball[1])
    else
      writeln(mimya[3],' ', mball[3])
   else
     if (mball[2]>mball[3]) then
       writeln(mimya[2],' ', mball[2])
     else
       writeln(mimya[3],' ', mball[3]);
  readln();
end.