Определить номера столбцов, в которых среднее арифметическое его элементов меньше общего по массиву

program pr1;
uses crt;
var
mas:array [1..4,1..7] of integer;
mas1:array [1..7] of integer;
a,b,c,f:integer;
d:real;
begin
clrscr;
randomize;
c:=0;
for a:=1 to 4 do
begin
for b:=1 to 7 do
begin
mas[a,b]:=random(10);
write(mas[a,b]:3);
end;
writeln;
end;
for a:=1 to 4 do
for b:=1 to 7 do
c:=mas[a,b]+c;
d:=c/28;
writeln('summa=',c);
writeln(d:4:2);
begin
for a:=1 to 4 do
f:=0;
begin
for b:=1 to 7 do
f:=f+mas[a,b];
end;
mas1[b]:=f;
write(mas1[b]);
end;
readkey;
end.

type
  mass = array[0..3, 0..6] of ShortInt;
  vector = array of Integer;
  
var
  ar : mass;
  i, j : Byte;
  sum : Integer;
  vecSum : vector;
  state : Boolean;
  
begin
  Randomize;
  SetLength(vecSum, 7); sum := 0;
  for i := 0 to 3 do
  begin
    for j := 0 to 6 do
    begin
      ar[i, j] := Random(201) - 100;
      Write('mass[', i+1, '][', j+1, ']=', ar[i, j], #9);
      vecSum[j] := vecSum[j] + ar[i, j];
      sum := sum + ar[i, j];
    end;
    WriteLn;
  end;
  state := false;
  WriteLn('Среднее арифм. массива= ', (sum / (4 * 7)):6:3);
  Write('Среднее арифм. столбцов: ');
  for i := 0 to 6 do
    Write((vecSum[i] / 4):5:2, #9);
  WriteLn;
  Write('Подходящие столбцы: ');
  for i := 0 to 6 do
    if ((vecSum[i] / 4) < (sum / (4 * 7))) then
    begin
      state := true;
      Write(i+1, #9);
    end;
  if not state then
    Write('таких не существует!');
  ReadLn;
end.