надо немного подкорректировать прогу в Делфи

[whatever]

Дык если не стараться, то ниче и не получится. Мог бы по образцу вторую написать. В общем радуйся, что мне делать нефиг:

type
  mass=array[1..15,1..15] of integer;
  mass2=array[1..15] of real;

var
  n,m,i, j, min, max: integer; 
  a:mass;
  b:mass2;
begin
  randomize;
  m:=15;
  N:=15;//размерности матрицы
  for i:=1 to m do
    for j:=1 to n do A[i,j]:=random(500);

  { идем подряд по столбцам матрицы А }
  for i:= 1 to M do begin
    { ищем макс и мин в столбце }
    min:=A[i,1];
    max:=A[i,1];
    for j:= 1 to N do begin
       if A[j, i]<min then min:=A[i,j];
       if A[j, i]>max then max:=A[i,j];
    end;

    { считаем их среднне арифм и записываем в B(i) }
    B[i]:=(max+min)/2;
  end;

  for i:=1 to m do
    begin
      for j:=1 to n do write(A[i,j],' ');
      writeln;
    end;
  writeln;
  for i:=1 to m do write(b[i]:2:2,' ');
  readln
end.

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