Помогите с Блок схемой

[Un1q]

К программе сделайте блок схему пожалуйста
1)
Код Pascal
program bb;
uses crt;
const n=10;
var a:array[1..10]of integer;
i,m,p:integer;
begin
randomize;
for i:=1 to n do
begin
write('a[',i,'] =');
read(a[i]);
end;
writeln;
write('Введите M = ');
read(m);
writeln;
p:=1;
for i:=1 to n do
if a[i]>m then
begin
p:=p*a[i];
end;
if p<>1 then
write('p = ',p)
else
write('Таких чисел нет');
end.
2)
Код Pascal
program e2;
uses crt;
const n=5;
var a:array[1..n] of integer;
i,nfind,max:integer;

Begin
clrscr;
for i:=1 to n do
readln(a[i]);
nfind:=1;
max:=a[1];
for i:=2 to n do
if a[i]>max then nfind:=i;
a[nfind]:=0;
writeln;
for i:=1 to n do
writeln(a[i]);
readln;
end.

[Mad_Cat]

[Un1q]

Огромное спасибо )