Načítáni dvou matic z jednoho souboru – Delphi – Fórum – Programujte.com

Zdravím Vás potřeboval bych poradit

mam načíst z jednoho souboru 2 různé matice oddělené od sebe prázdným řádkem neznám předem počet sloupců ani radků ani jedné z matic, mám toto vyřešené pro jednu matici. Zajímalo by mě jestli to vůbec jde a popř. jak.

Děkuji za reakce

program mat;

{$APPTYPE CONSOLE}

uses
SysUtils;

var A:array[1..100,1..100] of real;
      i,j,m,n:integer;
      vstup,vystup:text;

begin
  assign(vstup,'data.txt');
  assign(vystup,'data2.txt');
  reset(vstup);
  rewrite(vystup);

  //nacitani matice ze vstupniho souboru kdyz nezname predem
  //pocet radku a pocet sloucu
  i:=1;
  repeat
    begin
      j:=0;
        repeat
           begin
              j:=j+1;
              read(vstup,A[i,j]);
           end;
        until eoln(vstup);
        readln(vstup);
        i:=i+1;
    end;
 until eof(vstup);
n:=i-1;
m:=j;

//vypis matice
for i:= 1 to n do
   begin
       for j:= 1 to m do
          write(vystup,A[i,j]:6:2);
       writeln(vystup);
end;

close(vstup);

close(vystup);

end.

#1 liaz
Půjde to tak, že musíš najít ten prázdný řádek.

V tvém programu to zjistíš tak, že pokud dočteš vstupní řádek, hned otestuj, jestli nejsi zase na konci řádku:

        readln(vstup);
        if eoln(vstup) then writeln('prazdny radek');

A když jo, víš že máš jít na druhou matici...

Aha super takže tímto způsobem se dá načíst libovolný počet matic...
Moc děkuji za pomoc :)