Tic tac toe programban, ami kiirja a nyertest kellene segitseg. Valaki?

Tic-tac-toe egy játék két (az „X” és az „O” karakterekkel jelzett) játékos részére, amelyben az „X” és az „O” karaktereket kell elhelyezni egy N × N játékmezőn (1 ≤ N ≤ 10). Az üres cellákat „.” (pont) karakterrel jelöljük. Az a játékos, amelyik el tudta helyezni az egyik, – a vízszintes, a függőleges vagy az átlós – irány minden egyes kockájában a saját karaktereit, az nyer. E játékot most zsűrizni fogjuk. Meg van adva számunkra a játék végeredménye, és el kell döntenünk, hogy ki az, aki nyert vagy azt, hogy döntetlen volt-e. Az eredmény az „X” karakter, ha a játékot az X-játékos, az „O” – ha az O-játékos nyerte és „D” karakter, ha döntetlen volt. A bemenetben meg kell adni a játékmező méretét, és karakterláncként a tábla tartalmát a fenti jelöléseknek megfelelően. 3 × 3 játékmezőre a példa a 2. táblázatban látható. Pl.: bemenet: 3 OX.XXO.XO; kimenet: X.

Ez a feladat. Az elmélet megvan, csak nem tudom ezt leírni gyakorlatban. Tudom, hogy

egy dupla forralt kell vegigmenni az elso indexen az oszlopban levokhoz, majd az masodik indexxel az oszlopban levokhoz majd egy egyszeres forral a ket, fo es mellekatlon levoket vizsgalva. A foatlo, (sorindex=oszlopindex) a mellekatlo (sorindex+oszlopindex=matrixmeret+1).Jobban mondva a sorban 3 egyforma az oszloponkent vegigmenve es oszlopban 3 egyforma soronkent vegigmenve egy-egy megszamlalas tetellel.Kepleteket kell kesziteni 4 szamsorozatra, ha marad az egydimenzios valtozat: 1,2,3; 1,4,7; 1,5,9; 3,5,7 ugy, hogy k=1..3.

Csak ezt nem tudom leírni pascal nyelven. Mert azon kellene. Ehhez valaki segítséget nyújtana?