Программа с матрицей

[СашаSD]

Помогите, пожалуйста.

Дана матрица размером 7Х7 элементов, случайным образом заполненная. Найти минимальное значение из элементов тех столбцов матрицы, среднее арифметическое
которых больше 5 и меньше 15.

[Stilet]

Ну показывай наработки )
Хотя бы ввод матрицы, если другого нет.

[newerow1989]

var p:array[1..7,1..7] of integer;
    sr:array[1..7] of real;
    i,j,min:integer;
begin
   Randomize;
   For i:=1 to 7 do
   begin
      For j:=1 to 7 do
      begin
         p[i,j]:=Random(21);
         Write(p[i,j],'  ');
      end;
      Writeln;
   end;
   Writeln;
   For j:=1 to 7 do
   begin
      sr[j]:=0;
      For i:=1 to 7 do
         sr[j]:=sr[j]+p[i,j];
      sr[j]:=sr[j]/7;
      Write(sr[j]:5:5,'  ');
   end;
   Writeln;
   Writeln;
   min:=20;
   For j:=1 to 7 do
      If (sr[j]>5) and (sr[j]<15) then
         For i:=1 to 7 do
            If p[i,j]<min then
               min:=p[i,j];
   Writeln('min = ',min);
   Readln;
end.

Сойдет?