Не работает определение победителя в крестиках-ноликах

program ttt;
 
uses crt;
 
var i, CurTurn, side, turn: byte;
    memory: array[1..9] of char;
 
procedure Field; //рисуем поле
begin
clrscr;
writeln('     |     |     ');
writeln('  ', memory[1], '  |  ', memory[2],'  |  ', memory[3], '  ');
writeln('     |     |     ');
writeln('-----+-----+-----');
writeln('     |     |     ');
writeln('  ', memory[4], '  |  ', memory[5],'  |  ', memory[6], '  ');
writeln('     |     |     ');
writeln('-----+-----+-----');
writeln('     |     |     ');
writeln('  ', memory[7], '  |  ', memory[8],'  |  ', memory[9], '  ');
writeln('     |     |     ');
case turn of
  1: writeln('Выберите ячейку, ход крестика');
  2: writeln('Выберите ячейку, ход нолика');
end;
writeln(' 1 | 2 | 3');
writeln('---+---+---');
writeln(' 4 | 5 | 6');
writeln('---+---+---');
writeln(' 7 | 8 | 9');
end;
 
procedure Move; //читаем позицию на поле и присваем ячейке новое значение
begin
readln(CurTurn);
if turn = 1 then 
  begin
  memory[CurTurn] := 'X'; 
  turn := 2;
  end
else 
  begin
  memory[CurTurn] := 'O';
  turn := 1;
  end;
end;
 
begin
writeln('Выберите сторону: 1 - крестик, 2 - нолик');
write('Ваша сторона - ');
readln(side);
while (side > 2) or (side < 1) do 
  begin
  clrscr;
  writeln('Некорректный ввод!');
  writeln('Выберите сторону: 1 - крестик, 2 - нолик');
  write('Ваша сторона - ');
  readln(side); 
  end;
turn := side;
for i := 1 to 9 do memory[i] := ' ';
Field;
Move;
 
while not ((ord(memory[1]) = ord(memory[5])) and (ord(memory[1]) = ord(memory[9])) and (ord(memory[5]) = ord(memory[9]))) or
   ((ord(memory[2]) = ord(memory[5])) and (ord(memory[5]) = ord(memory[8])) and (ord(memory[2]) = ord(memory[8]))) or
   ((ord(memory[3]) = ord(memory[5])) and (ord(memory[5]) = ord(memory[7])) and (ord(memory[3]) = ord(memory[7]))) or
   ((ord(memory[4]) = ord(memory[5])) and (ord(memory[4]) = ord(memory[6])) and (ord(memory[5]) = ord(memory[6]))) do
  begin
  Field;
  Move;
  end;
clrscr;
  case turn of
  1: writeln('Выиграл крестик!');
  2: writeln('Выиграл нолик!');
  end;
end.