Одномерные массивы - В одном массиве записано количество мячей, забитых футбольной командой в каждой из n игр, в другом – количество пропущенных мячей в этой же игре [Delphi]

[No[o]ne]

В одном массиве записано количество мячей, забитых футбольной командой в каждой из n игр, в другом – количество пропущенных мячей в этой же игре. Для каждой игры определить словесный результат игры (выигрыш, проигрыш или ничья).
Вот мой вариант решения, но он не правильный , помогите переделать , мб полностью если нужно

procedure TForm1.Button3Click(Sender: TObject);
var
a:array of integer;
i,n:integer;
begin
for i:=1 to n do
begin
  a[i]:=random(5)+1;
Listbox1.Items.Add(intToStr(a[i]));
end;

end;

procedure TForm1.Button4Click(Sender: TObject);
var
b:array of integer;
i,n:integer;
begin
for i:=1 to n do
begin
  b[i]:=random(5)+1;
  Listbox2.Items.Add(intToStr(b[i]));
  for i := 1 to n do Begin
if a[i]=b[i] then ShowMessage ('ничья')
else if a[i] > b[i] then ShowMessage ('выигрыш')
else ShowMessage ('проигрыш');
End;
end;
end;

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Serge_Bliznykov]

Сообщение от No[o]ne

procedure TForm1.Button3Click(Sender: TObject);
var
a:array of integer;

рекомендую почитать, что такое "локальные переменные", "области видимости"...

а если вкратце - Вы объявили массив a внутри процедуры, и видна эта переменная (и существует) только внутри этой процедуры. за пределами этой процедуры этой переменной НЕ СУЩЕСТВУЕТ.

если нужно в одной процедуре заполнять один массив, а в другой - иметь к нему доступ - объявляете массив(ы) глобальной переменной.

это раз.

второе.
определение:

var a:array of integer;

описывает ДИНАМИЧЕСКИЙ массив (тоже почитайте, что это такое).
его основная характеристика - изменяемый размер.
поэтому, прежде чем обращаться к его содержимому, нужно сперва задать размер массива (чтобы для него выделилась память) с помощью процедуры SetLength()

третье, вы делаете цикл до n - а в n ничего не записали, там мусор. Как Вы думаете, сколько раз выполнится цикл?