Układ równań z trzema niewiadomymi - Cramer

Muszę napisać program rozwiązujący układ równań z trzema niewiadomymi metodą wyznaczników. Mam już część kodu:

program Project3;

{$APPTYPE CONSOLE}

uses
  SysUtils;

Type
    TA=array[1..3,1..3] of Real;
    TB=array[1..3] of Real ;
Var
    A:TA;
    B,X:TB;
    i,k:Integer;

begin
  Writeln('PODAJ WSPOLCZYNNIKI WYRAZOW WOLNYCH');
  For i:=1 to 3 do
    Begin
      Write('B[',i,']=');
      Readln(B[i]);
    End;
  For i:=1 to 3 do
    For k:=1 to 3 do
      Begin
        Write('A[',i,',',k,']=');
        Readln(A[i,k]);
      End;
End.

Teraz muszę obliczyć wyznacznik główny i wyznaczniki pierwszy, drugi i trzeci. Myślałem, żeby napisać coś w stylu, że - mnożę co trzeci wyraz. Mnożę od A[1,1] pomijam dwa wyrazy i mnożę z A[2,2] itd. aż ostatnim wyrazem będzie A[3,2]. To była by część, licząca kawałek wyznacznika głównego. Macie może jakieś pomysły?

var wykreslone_wiersze,wykreslone_kolumny:array[1..3]of Boolean;

I co mi to da?

Będziesz mógł liczyć wyznacznik rekurencyjnie.

Mógłbyś to wytłumaczyć tak bardziej dla informatycznego łosia? Z Pascalem mam do czynienia od paru tygodni i nie mam o nim większego pojęcia. Ja bym jak już to, żeby obliczyć wyznaczniki to wykreślał przekątne. A to to mi już na pewno nie wyjdzie.

Czy umiesz zrobić to ręcznie?
Bo jak nie, to problem właśnie w tym, że nie umiesz.
Nie da się kogoś/czegoś (w tym przypadku komputera) nauczyć tego, czego sam nie umiesz, nawet pod warunkiem świetnego posługiwania się językiem, który ten ktoś/coś doskonale rozumie.

Umiem to robić metodą Sarrusa, na filmiku jest to objaśnione jakoś ogólniej.

Masz to umieć tym wymaganym sposobem który masz oprogramować.

No to właśnie chciałem do tego wykorzystać metodę Sarussa. Tylko zamiast tabelki 3x3 miałem zamiar użyć tego co mam, to znaczy argumentów od 1,1 do 3,3 w postaci pionowej, bo wydaje mi się, że tak łatwiej to zrobić.

Jeżeli zawsze będziesz mieć 3x3 to możesz wbić od razu, wg zapisanego tu wzorca: https://pl.wikipedia.org/wiki/Regu%C5%82a_Sarrusa