Помогите решить задачу в Pascal ABC,нужно сдавать ее скоро, а я ее понять не могу (

[DIbmKa]

Даны вектор С (6) и матрица D(5,6). Из минимальных элементов столбцов матрицы D сформировать вектор А. Если максимальный элемент вектора А меньше максимального элемента вектора С, то за максимальным элементом вектора С вставить максимальный элемент вектора А, иначе удалить все отрицательные элементы вектора А.

[Serge_Bliznykov]

DIbmKa, расскажите, а что не получается, что именно Вы не можете понять?

[DIbmKa]

uses crt;
const n=7;
      ni=5;
      nj=6;
var C:array [1..n] of integer;
    D:array [1..ni,1..nj] of integer;
    A:array [1..nj] of integer;
    i,j,amax,cmax:integer;
begin

amax:=1;
cmax:=1;
//массив D
writeln('d');
for i:=1 to ni do
         begin
         for j:=1 to nj do
             begin
             D[i,j]:=random (100)-50;
             write(D[i,j]:8);
             end;
         writeln;
         end;
writeln('C');
//массив С
for i:=1 to n-1 do

             begin
             C[i]:=random (100)-50;
             write(C[i]:8);
             end;
writeln;
writeln('a');

// Из минимальных элементов столбцов матрицы D сформировать вектор А
         for j:=1 to nj do
             begin
             A[j]:=D[1 ,j];
             for i:=2 to ni do
                begin
                if d[i,j]<A[j] then
                A[j]:=D[i,j]
                end;
         write(A[j]:8);
         end;
// min вектора А
writeln;
         for J:=1 to n-1 do
             begin
             if A[j]>A[amax] then
             amax:=j;
             end;
             write('мах А=',A[amax]);
writeln;
             
         for i:=1 to n-1 do
             begin
             if c[i]>c[cmax] then
             cmax:=i;
             end;
             write('мax С=',c[cmax]);
writeln;
if A[amax]<c[cmax] then
     begin
     
    for i := n-1 downto cmax do
        begin
        c[cmax+1]:=a[amax];

        end;
             for i:=1 to n do
             write(C[i]:8);
     end;
end.

[DIbmKa]

uses crt;
const n=7;
      ni=5;
      nj=6;
var C:array [1..n] of integer;
    D:array [1..ni,1..nj] of integer;
    A:array [1..nj] of integer;
    i,j,amax,cmax:integer;
begin

amax:=1;
cmax:=1;
//массив D
writeln('d');
for i:=1 to ni do
         begin
         for j:=1 to nj do
             begin
             D[i,j]:=random (100)-50;
             write(D[i,j]:8);
             end;
         writeln;
         end;
writeln('C');
//массив С
for i:=1 to n-1 do

             begin
             C[i]:=random (100)-50;
             write(C[i]:8);
             end;
writeln;
writeln('a');

// Из минимальных элементов столбцов матрицы D сформировать вектор А
         for j:=1 to nj do
             begin
             A[j]:=D[1 ,j];
             for i:=2 to ni do
                begin
                if d[i,j]<A[j] then
                A[j]:=D[i,j]
                end;
         write(A[j]:8);
         end;
// min вектора А
writeln;
         for J:=1 to n-1 do
             begin
             if A[j]>A[amax] then
             amax:=j;
             end;
             write('мах А=',A[amax]);
writeln;

         for i:=1 to n-1 do
             begin
             if c[i]>c[cmax] then
             cmax:=i;
             end;
             write('мax С=',c[cmax]);
writeln;
if A[amax]<c[cmax] then
     begin
     for i := n-1 downto cmax do
        begin
        c[i+1]:=c[i];
        end;
        c[cmax+1]:=a[amax];
     for i:=1 to n do
         write(C[i]:8);
     end;
end.