Получить одномерный массив [1..8], каждый элемент которого является первым элементом в соответствующем столбце исходного массива, большим по модулю 4

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 var a:array[0..5,0..7]of integer;
     b:array[0..7]of integer;
     max:array[0..2]of integer=(-24,-24,-24);
     i,j:integer;
Procedure MaxElement(m1:array of integer;var m2:array of integer);
function PosE(v:integer;m:array of integer):boolean;
var q:integer;
begin
Result:=true;
for q:=0 to 2 do
if m[q]=v then Result:=false;
end;
var k,m:integer;
begin
m:=0;
m2[0]:=m1[0];
for k:=0 to 2 do
for i:=0 to 7 do
begin
if (m2[k]<m1[i])and posE(m1[i],m2)then
m2[k]:=m1[i];
end;
end;
 
begin
Randomize;
for i:=0 to 5 do
for j:=0 to 7 do
a[i,j]:=random(48)-24;
 
writeln('Ishodnij masiv');
for i:=0 to 5 do
begin
for j:=0 to 7 do
if (a[i,j]<0)and(a[i,j]>-10) then
write(a[i,j],'  ')  else
if a[i,j]<=-10 then
write(a[i,j],' ') else
if (a[i,j]>=0)and(a[i,j]<10)  then
write(' ',a[i,j],'  ')else
if a[i,j]>=10 then
write(' ',a[i,j],' ');
writeln;
end;
 writeln;
 
for j:=0 to 7 do
if abs(a[0,j])>4 then  //Если нет то елемент будет иметь значение 0
b[j]:=a[0,j];
 
for j:=0 to 7 do
write(b[j],' ');
writeln;
 
MaxElement(b,max);
 
for j:=0 to 2 do
write(max[j],' ');
writeln;
readln;
end.