ПОМОГИТЕ ПОЖАЛУЙСТА, Обрисовать Поочередно, ЧТО Исполняет ДАННАЯ ПРОГРАММА, Досконально.const

ПОМОГИТЕ ПОЖАЛУЙСТА, Обрисовать Поочередно, ЧТО Исполняет ДАННАЯ Программка, Досконально.
const m=5;
n=5;
var r:array[1..m,1..n] of integer;
i,j,c,d,k:integer;
l:boolean;
begin
randomize;
writeln('Исходная матрица: ');
for i:=1 to m do
begin
for j:=1 to n do
begin
r[i,j]:=random(15);
write(r[i,j]:4);
end;
writeln;
end;
write('c= ');
read(c);
write('d= ');
read(d);
writeln('Строчки, в которых есть число:',c);
k:=0;
for i:=1 to m do
begin
l:=false;
j:=1;
while(jlt;=n)and not l do
if r[i,j]=c then l:=true
else j:=j+1;
if l then
begin
k:=1;
write(i,' ');
for j:=1 to n do r[i,j]:=r[i,j]*d
end;
end;
writeln;
if k=0 then writeln('В матрице нет числа: ',c)
else
begin
writeln('Перевоплощенная матрица: ');
for i:=1 to m do
begin
for j:=1 to n do
write(r[i,j]:4);
writeln;
end;
end;
end.