В одном массиве записано количество мячей, заброшенных баскетбольной командой в каждой из 15-ти игр,в другом-количество пропущенных мячей. Для каждой игры определить словесный результат игры ( выигрыш или проигрыш ) — Pascal(Паскаль)

uses crt;

const
  n = 15;

var
  a, b: array [1 .. n] of integer;
  i: integer;

begin
  clrscr;
  for i := 1 to n do
  begin
    write('Введи количество заброшенных мячей в ', i, ' игре:');
    read(a[i]);
  end;
  for i := 1 to n do
  begin
    write('Введи количество пропущенных мячей в ', i, ' игре:');
    read(b[i]);
  end;
  for i := 1 to n do
  begin
    if a[i] > b[i] then
      writeln('Игра №', i, '.Результат: выигрыш');
    if a[i] < b[i] then
      writeln('Игра №', i, '.Результат: проигрыш');
    if a[i] = b[i] then
      writeln('Игра №', i, '.Результат: ничья');
  end;
  readkey

end.