задание в DELPHI одномерные массивы

Помогите решить задачу
В одном массиве записано количество мячей, забитых футбольной командой в каждой из 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;