Menghitung x dan y dengan matrik atau determinan

1. Berikut ini saya mau menampilkan cara untuk menghitung nilai x dan ydengan matrik atau determinan.yang pertama saya memberikan flochatnya terlebih dahulu

2.  program input_outputnya:

uses wincrt;
var
x,y,det,dex,dey:real;
a,b,c,d,e,f:integer;
lagi:char;

begin
writeln('      Menghitung Nilai Variabel X dan Y dengan Matrik atau Determinan');
writeln('                                    Tugas Ke-7');
writeln('                                 Kosmas Masri');
writeln('                            145500001 / 2014 - D');
writeln('  -------------------------------------------------------------------------');
repeat
writeln('Persamaan Pertama ax+by=c');
write('Berapa nilai a:');
readln (a);
write('Berapa nilai b:');
readln(b);
write ('Berapa nilai c:');
readln (c);
writeln('Persamaan Kedua ax+by=c');
write('Berapa nilai a:');
readln (d);
write('Berapa nilai b:');
readln(e);
write ('Berapa nilai c:');
readln (f);
writeln('Maka kedua persamaan:');
writeln(a,'x + ',b,'y = ',c);
writeln(d,'x + ',e,'y = ',f);
dex:=((e*c)+(-b*f)) div ((a*e)-(b*d));
dey:=((-d*c)+(a*f)) div ((a*e)-(b*d));
writeln('nilai x:',dex:2:2);
writeln('nilai y:',dey:2:2);
write ('Apa anda ingin mengulang?(y/t) ');
readln (lagi);
until lagi='t'
end.