const M=10; prek = '*'; {znak prekazky} prazd = '.'; {znak volneho pole} obs = -1; {kod prekazky} volno = 0; {kod volneho pole} type index = 1..M; deska = array [index,index] of integer; sachovnice = record A : deska; n : index; {pocet radku} m :index; {pocet sloupcu} end; procedure precti (var F:text; var D:sachovnice); var I, J : integer; begin with D do begin readln(F,n,m); for I:=1 to n do begin for J:=1 to m do begin read(F,U); if U = prek then A[I,J]:= obs else A[I,J]]:= volno; end; readln(F); end; end; end {of precti};