program Project1;
 
const eso = 1;
      svrsek = eso + 1;
 
type figurka = ( nic, pesec, vez, kun, strelec, dama, kral );
     barva = ( cerna, bila );
     radka = 1..8;
     sloupec = ( A, B, C, D, E, F, G, H );
     policko = record
                  fig: figurka;
                  bar: barva;
               end;
 
var  sachovnice : array [radka, sloupec] of policko;
 
procedure nastav (r: radka; s: sloupec; fi: figurka; ba: barva);
begin
     sachovnice [r,s].fig := fi;
     sachovnice [r,s].bar := ba;
end;
 
procedure zaklad (r: radka; ba: barva);
begin
     nastav (r, a, vez, ba);
     nastav (r, b, kun, ba);
     nastav (r, c, strelec, ba);
     nastav (r, d, dama, ba);
     nastav (r, e, kral, ba);
     nastav (r, f, strelec, ba);
     nastav (r, g, kun, ba);
     nastav (r, h, vez, ba);
end;
 
var  r: radka;
     s: sloupec;
     p: policko;
 
begin
     zaklad (7, cerna);
 
     for s := A to H do
        nastav (2, s, pesec, cerna);
 
     for r := 3 to 6 do
        for s := A to H do
           nastav (r, s, nic, bila);
 
     for s := A to H do
        nastav (2, s, pesec, bila);
 
     zaklad (1, bila);
end.