Составить одномерный массив, содержащий номера максимальных элементов в столбцах исходного массива

Uses
 CRT;
Const
 nmax=100;
Var
 i,n,sum,l,kol:integer;
 a:array[1..nmax] of integer;
begin
repeat
 write('N:=');
 readln(n);
until n in [1..nmax];
randomize;
sum:=0;
for i:=1 to n do
begin
 a[i]:=random(100)-9;
 write(a[i]:3);
 l:=a[i];
 kol:=0;
 repeat
  inc(kol);
  l:=l div 10;
 until l=0;
if kol mod 2=0 then
 sum:=sum+a[i];
end;
writeln;
writeln('SUM:=',sum);
readkey
end.

Uses
 CRT;
Const
 nmax=100;
Var
 i,n,kol:integer;
 a,b:array[1..nmax] of integer;
begin
repeat
 write('N:=');
 readln(n);
until n in [1..nmax];
randomize;
kol:=0;
for i:=1 to n do
begin
 a[i]:=random(100)-9;
 write(a[i]:3);
 if a[i] mod 10=3 then
 begin
  inc(kol);
  b[kol]:=a[i];
 end;
end;
writeln;
for i:=1 to kol do
 write(b[i]:3);
readkey
end.

Uses
 CRT;
Const
 nmax=20;
var
 a:array[1..nmax,1..nmax] of integer;
 b:array[1..nmax] of integer;
 imin,n,i,j,m:integer;
begin
repeat
 write('Ââåäèòå N: ');
 readln(n);
until n in [1..nmax];
repeat
 write('Ââåäèòå M: ');
 readln(m);
until m in [1..nmax];
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(10)-3;
    write(a[i,j]:5);
   end;
  writeln
 end;
 for j:=1 to m do
 begin
 imin:=1;
  for i:=1 to n do
    if (a[i,j]>a[imin,j]) then
     imin:=i;
   b[j]:=a[imin,j];
 end;
writeln;
for i:=1 to m do
 write(b[i]:5);
readkey
end.

uses crt;
var a,a2:array [1..100] of integer;
i,n,n2:byte;
sum:integer;
begin
clrscr;
writeln('vvedite kol-do elem: ');
readln(n);
write('vvedite elem: ');
for i:=1 to n do
begin
read(a[i]);
if (a[i] mod 10)=3 then
begin
a2[n2+1]:=a[i];
inc(n2);
end;
end;
write('izmenennyy massiv: ');
for i:=1 to n2 do
write(a2[i],' ');
end.