Складіть блок схему алгоритму обчислення значення функції y=a^2+kx​

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

3 Информация - совокупность сведений, знаний о чем-либо; сообщение - совокупность знаков , отображающих информацию.
4 Кодирование - зашифровка информации (перевод языка на азбуку Морзе),декодирование - расшифровка( расшифровка сообщения с азбуки Морзе,к примеру, на русский язык).
5 Кол-во информации предотвращает неопределенность.Неопределенность информации характеризуется энтропией, хаосом.
6 Актуализация информации - совокупность действий по обновлению, расширению, восстановлению информации для эффективности  ее использования.
7 Актуальность, полнота, доступность,понятность (т.е. понятна для восприятия)