Výpis ze souboru – Pascal – Fórum – Programujte.com

Zdravím, chtěl bych požádat o radu. Mam kod na výpočet rovcni pomocí Cramerova pravidla. Čtení ze souboru. Vypíše mi to výsledek, ale já bych rád, aby mi to do pole vypsalo i zadaná čísla rovnice. Zkoušel jsem už mnoho způsobů, i nadefinovat pole matice a pak čísla vypsat, ale evypisovaly se po řádcích, ale pod sebou.

Děkuji za radu.

program Project;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
a1,a2,a3,b1,b2,b3,DetA,DetA1,DetA2:real;
f:text;

procedure Cramerovo_pravidlo(x1,x2,y1,y2:real;var
rovnice:real);
  begin
     rovnice:=x1*y2-x2*y1;
  end;

begin
  writeln('Vypocet soustavy linearnich rovnic pomoci Cramerova pravidla');
  writeln('************************************************************');
  writeln;
  assign(f,'zadani.txt');
  reset(f);
  readln(f,a1,a2,a3);
  readln(f,b1,b2,b3);
  Cramerovo_pravidlo(a1,a2,b1,b2,DetA);
  Cramerovo_pravidlo(a3,a2,b3,b2,DetA1);
  Cramerovo_pravidlo(a1,a3,b1,b3,DetA2);
  writeln('Vysledek');
  writeln('********');
  writeln;
  writeln('x=',DetA1/DetA:4:0);
  writeln('y=',DetA2/DetA:4:0);
  close(f);
  readln;
end.

a vis co znamena to  -ln  na konci writeln?  zkratka pro  LiNe  (proste to co vypise writeln je na jednu radku) ... pokud das jen write, tak se na dalsi radek neskoci

tak tomu rozumím, jde mi spíš o to, kam napsat příkaz do kodu, aby mi to čísla vypsalo. Zda hned po otevření souboru nebo až po načtení proměnných a1až b2. a zda postačí, např write(f);, nebo se musi vse vzpisovat, jeste jsem to nikdy nedelal

Díky, už to chodí.