Pascal. Массивы. Help.

[adelaida]

Всем большое спасибо! сейчас буду пробовать!

[alex_fcsm]

Как вариант

Program mass;
uses crt;
type TM=record
       mult:real;
       ind:integer;
       end;
var A,X:array[1..4,1..4] of real;
    b:array[1..4] of real;
    P:array[1..4] of TM;
    i,n,S,j:integer;
    c:TM;
begin
clrscr;
for i:=1 to 4 do
begin
  for j:=1 to 4 do begin
   write('A[',i,',',j,']=');
   readln(A[i,j]);
    end;
end;
writeln;
for j:=1 to 4 do begin
  P[j].mult:=1;
  p[j].ind:=j;
for i:=1 to 4 do
  P[j].mult:=P[j].mult*A[i,j];
end;

 for i:=2 to 4 do
    for j:=4 downto i do
      if p[j-1].mult>p[j].mult then
        begin
          c:=p[j-1];
          p[j-1]:=p[j];
          p[j]:=c;
        end;
writeln;
for i:=1 to 4 do
 for j:=1 to 4 do
   x[j,i]:=a[j,p[i].ind];
a:=x;
for i:=1 to 4 do
 begin
 writeln;
  for j:=1 to 4 do
  write(a[i,j]:6:1,' ');
 end;
writeln;
end.