матрица 3х4 и надо решить методом Гауса

[Колян]

Напишите плиз код, надо к зачёту!!!

дана система лин. уровн., т.е. матрица 3х4 и надо решить методом Гауса, а если кто не хочет писать, напишите код хотяб как переставлять строки на которых по диаганали нули, т.к. деление на 0 нелязя!
вот матрица
7 -8 13 9
12 6 -8 22
8 -6 4 6
тут нет правда деления на 0, но всё равно то условие нужно проверять!

[puporev]

В начале прямого хода

if a[k,k]=0 then Per(k,n,a,b);//перестановка строк

Вот код самой процедуры (в приципе сортировка любым методом, в данном случае "пузырьком").

procedure Per(k,n:integer;var a:Tmatrix;var b:Tmass);
var j,i:integer;z:Real;
begin
   z:=a[k,k];i:=k;
   for j:=k+1 to n do
   begin
     if abs(a[j,k])>z then
     begin
     z:=a[j,k];i:=j;
     end;
   end;
     if i>k then
     for j:=k to n do
     begin
     z:=a[i,j];a[i,j]:=a[k,j];a[k,j]:=z; //перестановка коэффициентов
     end;
     z:=b[i];b[i]:=b[k];b[k]:=z;        //перестановка свободных членов
end;

Сам тоже маялся, потом нашел в книжке по численным методам.