Помогите с двумерным массивом символов

[Anvilion]

Здраствуйте. Недавно начал изучать программирование, поэтому не совсем четко еще все понял. Помогите пожалуйста решить следующую задачу: Написать двумерный массив символов выводящий на экран крестики и нолики: x o x o x o x o , Заранее спасибо
o x o x o x o x
x o x o x o x o

[pomoshnic]

Var a:array [80,25] of char;
i,j,r:integer;
Begin
Randomize
For i:=1 to 25 do
Begin
For j:=1 to 80 do
Begin
R:=random(1);
If r=1 then a[j,i]:='x' else a[j,i]:='o';
Write([j,i]);
End;
Writeln;
End;
Readln
End.