Программа уже написана, а понять не могу( - Pascal - Ответ 1223983

USES CRT;
CONST N=5;M=4;// постоянные
VAR A:ARRAY[1..M,1..N] OF INTEGER;// двумерный массив
C:ARRAY[1..M] OF INTEGER;// одномерный массив
P:ARRAY[1..M] OF INTEGER;// одномерный массив
I,J,K,L:INTEGER;// целые числа
BEGIN
СLRSCR;//очистка экрана
FOR I:=1 TO M DO BEGIN//цикл
FOR J:=1 TO N DO BEGIN//цикл
A[I,J]:=RANDOM(9)-2;// заполняем массив случайными числами
WRITE (A[I,J],' '); // выводим на экран
END;
WRITELN;//переход на другую строку
END;
K:=0;//присваивание
L:=0;//присваивание
FOR I:=1 TO M DO BEGIN //цикл
FOR J:=1 TO N DO//цикл
IF A[I,J]<0 THEN K:=K+1;// если число отрицательное , то значение отрицательных чисел увиличиваем на один
C[J]:=K;// заполняем ячейку массива этим числом
K:=0;// обнуляем
L:=0;//обнуляем
FOR I:=1 TO M DO BEGIN//цикл
FOR J:=1 TO N DO//цикл
IF A[I,J]>0 THEN L:=L+1;//если число борльше нуля,то количество положительных чисел увеличиваем на один
P[J]:=1;//тут по логике надо было написать L
L:=0;// обнуляем
END;//конец
FOR I:=1 TO M DO //цикл
WRITE (C[I],' ');//выводим на экран содержимое c[i]
WRITELN;//переход на др строку
FOR I:=1 TO M DO//цикл
WRITE (P[J],' ');//выводим на экран содержимое p[j]
WRITELN;
WRITELN;
FOR I:=1 TO N DO
IF C[I]<P[I] WRITELN('#STROKI',J);// если с<p тогда пишем строки
END.