Помогите составить блок-схему.

[Илья1111]

Помогите пожалуйста составить блок-схему по такой программе:
program luhindiv3_2;
uses crt;
type Mas=array [1..10,1..10] of integer;
var A:mas;
b,c,i,j,n,m:integer;
p,kol:integer;
begin
textbackground(5);
clrscr;
textcolor(11);
gotoxy(30,1);
writeln('Индивидуальное задание №3');
gotoxy(37,2);
writeln('Вариант №8');
gotoxy(1,3);
writeln('Программу составил:');
gotoxy(60,4);
writeln('Петров Петр');
gotoxy(60,3);
writeln('студент гр. ПР-28');
gotoxy(20,6);
writeln('Задача для определения кол-ва нулевых элементов в матрице’);
gotoxy(15,7);
writeln('и для произведения найденного значения на элементы второго столбца’);
writeln('Введите начало и конец отрезка:’);
readln(b,c);
write('Введите кол-во строк в матрице’);
readln(n);
write('Введите кол-во столбцов в матрице’);
readln(m);
randomize;
for i:=1 to n do
for j:=1 to m do
a[i,j]:=random(c-b)+b;
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:6);
writeln;
end;
kol:=0;
for i:=1 to n do
for j:=1 to n do
if a[i,j]=0 then
kol:=kol+1;
writeln(kol:6 ,' нулевых элемента в матрице’);
writeln;
for i:=1 to n do
begin
a[i,2]:=kol*a[i,2];
end;
writeln('Результирующий массив');
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:6);
writeln;
end;
readln;
end.

[Smitt&Wesson]

Пост создан в 18:29 Я зашел в 19,39. ТС и след простыл.
Я даже запоминать этого сачка не желаю. В принципе, что и требовалось доказать.
ЕГЭ - в действии, т(п)равители преуспевают в одебиливании масс. Виват - король, виват!