Двумерный массив А. Если заданное число больше первой цифры столбца, то этот столбец удаляется. Комментировать листинг на Паскаль

[Altana]

Помогите пожалуйста написать комментарии к каждой команде)
Дан двумерный массив "А". Пользователь вводит число. Если это число больше первой цифры из столбца, то этот столбец удаляется..

Program pr1;
Uses CRT;
Const N=5;
Const M=5;
var A:array[1..N,1..M] of integer;
s,i,j,k,p,t,z:integer;

Begin
s:=M;
ClrScr;
For i:=1 to N do
For j:=1 to M do A[i,j]:=random(20);
For i:=1 to N do begin
For j:=1 to M do write(A[i,j]:3);
Writeln;
End;



Writeln('vvedite chislo');
Readln(z);

j:=1;
While j<=S do
If A[1,j]>z then
begin
For t:=1 to N do
For p:=j to S-1 do
A[t,p]:=A[t,p+1];
S:=S-1;
end
else j:=j+1;

If k=s then write('vse ctolbci ydaleni') else
writeln;
For i:=1 to N do begin
For j:=1 to S do write(A[i,j]:3);
Writeln;
end;

Readln;
end.

___________
1) Название темы должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В дальнейшем темы с подобным названием будут закрываться/удаляться,
а автор такой темы получать штрафы.


2) Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)

Не забывайте об этом!

Модератор.