Метод гауса с выбором главного элемента по столбцу

[teemidov]

Ребят такая проблема возникла метод гаусса с выбором главного элемента по строке препод даа задание изменить выбор главного элемента по столбцу код в Паскале помогите плиз сделать очень надо!!!
КОД
Код Pascal
uses crt;
const n=3;
type
Matr = array[1..n,1..n] of real;
Vect = array[1..n] of real;
procedure Zapoln(var a:Matr;var b:Vect);
var i,j:integer;
begin
randomize;
for i:=1 to n do
begin
for j:=1 to n do
a[i,j]:=random*500-250;
b[i]:=random*500-250;
end;
end;
procedure Vivod(const a:Matr;const b:Vect);
var i,j:integer;
begin
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:3:2,' ');
write('=');
writeln(b[i]:3:2,' ');
end;
writeln;
end;
var a,a2:Matr;
b,x,d,b2:Vect;
i,j,m,k,z,p:integer;max,r,g:real;
begin
Zapoln(a,b);
Vivod(a,b);
for k:=1 to n do
begin
b[k]:=b[k]/a[k,k];
for j:=n downto k do a[k,j]:=a[k,j]/a[k,k];
for j:=k+1 to n do
begin
r:=a[j,k];
for i:=k to n do a[j,i]:=a[j,i]-r*a[k,i];
b[j]:=b[j]-r*b[k];
end;
end;
Vivod(a,b);
for k:=n downto 1 do
begin
r:=0;
for j:=k+1 to n do
begin
g:=a[k,j]*x[j];
r:=r+g;
end;
x[k]:=(b[k]-r)/a[k,k];
end;
writeln('Korni:');
for i:=1 to n do
write('x[',i,']=',x[i]:3:2,' ');
writeln;
writeln;
readln;
end.
измените плиз эту программу чтоб по столбцу искал очень надо срочно