Определите тип алгоритма для указанных скриптов​

Const
  n1 = 20;
  m1 = 20;

var
  a: array[1..n1, 1..m1] of integer;
  b: array[1..m1] of integer;
  i, j, m, n: integer;

begin
  Write('Введите через пробел число строк и столбцов массива: ');
  Readln(n, m);
  Randomize;
  Writeln('Исходный массив');
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i, j] := Random(101) - 50;
      Write(a[i, j]:4)
    end;
    Writeln
  end;
  Writeln('Сформированный массив');
  for j := 1 to m do
  begin
    i := 1;
    while (i <= n) and (a[i, j] >= 0) do i := i + 1;
    if i <= n then b[j] := a[i, j] else b[j] := -99;
    Write(b[j]:4)
  end;
  Writeln
end.

Тестовое решение:
Введите через пробел число строк и столбцов массива: 3 10
Исходный массив
 -11 -18 -42 -22  -9   2  21  15  40  -3
   4  -5  40 -13 -44 -37  43  47   1 -39
  20  50  21 -18 -10   6  12 -10  43 -37
Сформированный массив
 -11 -18 -42 -22  -9 -37 -99 -10 -99  -3

1) А В  В(отр с черточкой)   В(отр)vA    F
    0  0  1                                   1        0
    0  1  0                                   0        0
    1  0  1                                   1        1
    1  1  0                                   1        1 

2)  ABC AVB CVB  F
     0 0 0  0       0     0
     0 0 1  0       1     0
     0 1 0  1       1     1  
     1 0 0  1       0     0
     0 1 1  1       1     1
     1 0 1  1       1     1
     1 1 0  1       1     1    
     1 1 1  1       1     1