Anonymní profil vlakilos – Programujte.com

Dobrý den,

dostali jsme úkol a vzhledem k tomu, že jsem si vybral jiný obor, než programovaní. Mám problém s tím ho vytvořit. Potřeboval bych navést (poměrně hodně). Budu rád za každou pomoc.

Jedná se o hru život do, které se nahraje počáteční stav ze souboru. Ten vypadá takhle:

6
010010
011110
100001
101101
100001
011110

Poté potřebuju vytvořit podmatici, která zajistí, aby okrajové prvky byly neživé.

Zatím jsem vytvořil výpis, ale nefunguje teda jak má:

program Hra_zivot;
uses crt;
const Nk = 6;
type RADEK = array [1..Nk] of char;
     MAT = array [1..Nk] of RADEK;

var N,I:integer;
    A:MAT;
    B:RADEK;

procedure POCSTAV (var A:MAT; var N:integer; JMS:string);
var f:text;
    i,j:integer;
begin
assign (f,JMS);
reset (f);
readln (f,n);
for i:=1 to n do
        begin
         for j:=1 to n do
                 read(f,A[i,j]);

        end;
close (f);
end;

Procedure VYPIS (var A:MAT; N:integer);
var i,j : integer;
begin

for i:=1 to n do
begin
for j:=1 to n do write (A[i,j]);

end;
writeln;
end;

begin
clrscr;
I:=0;
POCSTAV (A, n, 'KOCKA.ZIV');
VYPIS (A,n);
readln;
end.

Výpis potom vypadá takhle:

010010
011110
100001
101101
100

a zbytek se nezobrazí. Každopádně pak asi předpokldám, že musím char převést na boolean a pak dál nějak ...

Mockrát děkuji za každou radu a moc si ji vážím.