Паскаль.Матрица.

[дайкири]

всем привет!не могу справится с задачей,помогите,пожалуйста.:confus ed:
Образовать и напечатать ряд,состоящий из номеров столбцов,в которых второй элемент меньше первого.Вычислить средние арифмитические в этих столбцах и заменить элементы этих столбцов на соответствующие значения средних арифметических.

[дайкири]

честно говоря мне кажется я вообще бред написала,но это всё:
Program V1_N8;
var
A :array[1..5,1..5]of real;
N :array[1..5]of integer;
S :array[1..5]of real;
i,j,k :integer;
Procedure Vvod;
begin
writeln('‚ўҐ¤ЁвҐ ¬*ваЁжг 5е5: ');
for i:=1 to 5 do
for j:=1 to 5 do
read(A[i,j]);
end;
BEGIN
Vvod;
k:=0;
for i:=1 to 5 do
if A[1,i]<A[2,i] then begin
inc(k);
N[k]:=i;
end;
if k<>0 then begin
for i:=1 to k do begin S[i]:=0;
for j:=1 to 5 do S[i]:=S[i]+A[j,N[i]];
S[i]:=S[i]/5;
end;

[Sazary]

честно говоря мне кажется я вообще бред написала,но это всё:

Пытались - уже хорошо.

uses crt;
const n=5;
var
a : array[1..n,1..n] of real;
s : array[1..n] of integer;
i,j,z : integer;
k : real;

begin
clrscr;
randomize;
for i:=1 to n do
 begin
 for j:=1 to n do
  begin
  a[i,j] := random(50);
  write(a[i,j]:4:0);
  end;
 writeln;
 end;
writeln;

writeln('Stolbcy, gde 2-j element < 1-ogo');
z := 0;
for j:=1 to n do
 begin
 if a[2,j]<a[1,j] then
  begin
  inc(z);
  s[z] := j;
  write(s[z]:4);
 { считаем сред. ариф }
  k := 0;
  for i:=1 to n do
   k := k + a[i,j];
  k := k/5;
  for i:=1 to n do
   a[i,j] := k;
  end;
 end;
writeln;
writeln;
for i:=1 to n do
 begin
 for j:=1 to n do
  write(a[i,j]:5:1);
 writeln;
 end;
readln;
end.

[дайкири]

большое спасибо!