Задания в Паскале через двойной массив,с использованием метода Гауса

[Novenkaja]

Добрый вечер всем!

Предупреждаю сразу-условия заданий возможно могут быть не совсем понятными, но так нам в быстром темпе продектовал преподователь....

1-написать программу,которая поменяет местами строки (ряды) в матрице.

2-написать программу,которая делает сравнение. Если равно нулю,тогда выйти из программы и сказать,что нет единого решения.

3-Усовершенстовать программу там,где нет решения уравнения изменённой строки (ряда) (т.е. в том месте где написано writeln('нет решения')).

в этом же задании:

3.1-надо дополнить так,чтобы работала в любое время(т.е.чтобы было одно единственное решение,и небыло одно единственного решения,т.е. когда все нули)
3.2-если в случае.что один из коэффициентовравен 0,надо поменять с первой колонкой (столбцом),которая отличается от нулевой колонки (столбца).Если такое есть,тогда поменять,если нет-тогда одно единственное решение

(К 3-ему ЗАДАНИЮ имеется код,который как раз и надо дополнить по заданию)

program gauss;
const y=10;
type tips=array [1..y,1..y+1] of real;
     tips1=array [1..y] of real;
var i,j,k,n,u,m:integer;
    z:real;
    a:tips;
    x:tips1;
begin
     readln (n);
     for i:=1 to n do
         for k:=1 to n+1 do readln (a[i,k]);
     u:=0;
     repeat
           writeln ('u=',u);
           u:=u+1;
           k:=u;
           while (a[k,u]=0) and (k<=n) do
                 begin
                 k:=k+1;
                 if k>=n then begin
                              writeln ('Net rewenija');
                              halt (1)
                              end
                 end;
           if k<>u then for m:=u to n+1 do begin
                                           z:=a[u,m];
                                           a[u,m]:=a[k,m];
                                           a[k,m]:=z
                                           end;
           for j:=n+1 downto u do a[u,j]:=a[u,j]/a[u,u];
           for i:=u+1 to n do
               for j:=u+1 to n+1 do
                   a[i,j]:=a[i,j]-a[i,u]*a[u,j]
     until u=n;
     m:=n+1;
     for i:=n downto 1 do begin
                          x[i]:=a[i,m];
                          if i>1 then for k:=i-1 downto 1 do
                             a[k,m]:=a[k,m]-a[k,i]*x[i]
                          end;
     for i:=1 to n do writeln ('x(',i,')=',x[i]);
     readln
end.

[Novenkaja]

если трудно решить все 3 задачи,то мне хотя бы решения первых двух))))

а то перепробывала разные варианты,но то не компилирует,то компилирует,но не даёт ран...

[Novenkaja]

program masiv;
const
	size_row = 10;	{ число строк }
	size_col = 10;	{ число столбцов }
type
	tvector = array[1 .. size_col] of integer;
	tmatrix = array[1 .. size_row] of tvector;
var
  mx: tmatrix;
  i, j: integer;

procedure swap_rows(var mx: tmatrix; const i, j: integer);
var T: tvector;
begin
	T := mx[i]; mx[i] := mx[j]; mx[j] := T
end;

procedure print(var mx: tmatrix);
var i, j: integer;
begin
	for i := 1 to size_row do begin
		for j := 1 to size_col do
			write(mx[i][j]:4);
		writeln
	end;
end;


begin
	{ Заполнение матрицы }
	for i := 1 to size_row do
		for j := 1 to size_col do
			mx[i][j] := random(100);

	{ Матрица до обмена }
	writeln('before:'); print(mx);

	{ Обмен строк }
	swap_rows(mx, 1, 5);

	{ Матрица после обмена }
	writeln('after:'); print(mx);
end.

код ко второму заданию

компилирует,но не хочет выдавать ран.в чём ошибка???
помогите пожалуйста