Piškvorky – Pascal – Fórum – Programujte.com

Zdravím,

chtěl bych se zeptat zdali si někdo neví rady s nejjednoduššími piškvorkami v pascalu a nedovedl by mi pomoci. 

// FreePascal

var
  plocha: array of array of char;
  velikost: integer;
  i, j: integer;

begin
  velikost := 5;
  setlength(plocha, velikost, velikost);
  for i := 0 to velikost-1 do
    for j := 0 to velikost-1 do
      plocha[i,j] := '.';

  plocha[1,2] := 'X';
  plocha[2,2] := 'O';

  for i := 0 to velikost-1 do
  begin
    write('|');
    for j := 0 to velikost-1 do
      write(plocha[i,j]);
    writeln('|');
  end;
end.