Anonymní profil Filda – Programujte.com

#2 gna
jak bych to měl tedy prosím správně napsat?

Dobrý den, potřeboval bych poradit jak dostat hodnoty z textovýho souboru vypadajícího nějak takhle:

uddudud

duududd

uududdd

do 2D pole typu boolean, kdy pro u = true a f = false.
Zatím jsem vymyslel toto, nicméně správně to zapíše pouze první řádek pole, zbytek je s porovnání s text. souborem špatně.

var
i,j : integer;
s : char;
T : text;
const
  N = 7;
  M = 30;
var
spin : array [1..N,1..M] of boolean;
begin
  assign (T, 'C:');
  reset(T);
  i := 0;
  j := 0;
  while not eof(T) do
        begin
        j := j+1;
        read(T,s);
        write(s);
        if s = 'd' then spin[1,j] := false else spin[1,j] := true;
        end;