Дан двухмерный массив. Сформулировать одномерный массив, каждый элемент которого равен количеству элементов соответствующему столбцу двухмерного массива, больших числа N — Pascal(Паскаль)

uses crt;
var
ms : array [1..7,1..7] of integer;
reg : array [1..7] of integer;
a,b,c,n : integer;
begin
clrscr;
randomize;
for a:=1 to 7 do begin
for b:=1 to 7 do begin
ms[a,b]:=random(10);
write(ms[a,b],' ');
end;
writeln;
end;
writeln;
readln(n);

for a:=1 to 7 do 
 begin
  c:=0;
  for b:=1 to 7 do
  if ms[b,a]>n then inc(c);
  reg[a]:=c;
 end;

for a:=1 to 7 do write(reg[a],' ');
readkey;
end.