Matematické Fórum

Dobrý den, prosím o radu. Mam vypočítat soustavu dvou lin nerovnic. Kod mám, ale do pole mi to vypíše pouze výsledek a já bych rád, aby m to ze souboru načetlo a do pole vypsalo i zadané číslice nerovnice.
Děkuji za radu

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var

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

procedure cramer(x1,x2,y1,y2:real;var
vypocet:real);

begin
  vypocet:=x1*y2-x2*y1;
end;

begin
  writeln('Program na vypocet systemu linearnich rovnic Cramerovym pravidlem');
  writeln('*****************************************************************');
  writeln;
  assign(f,'soustava_lin_rovnic.txt');
  reset(f);
  readln(f,a1,a2,a3);
  readln(f,b1,b2,b3);
  cramer(a1,a2,b1,b2,DetA);
  cramer(a3,a2,b3,b2,DetA1);
  cramer(a1,a3,b1,b3,DetA2);
  writeln('Vysledek zadanych linearnich rovnic');
  writeln('******************************);
  writeln;
  writeln('x= ',DetA1/DetA:3:0);
  writeln('y= ',DetA2/DetA:3:0);
  close(f);
  readln;
end.