Постройте пожалуйста блок схемы

Program z_8;
uses crt;
const
n=4;
m=4;
var
a: array [1..n,1..m] of integer;
i,j,k,l,max: byte;
begin
clrscr;
randomize;
for i:= 1 to n do
begin
for j:= 1 to m do
begin
a[i,j]:= random(10);
write(a[i,j]:2);
end;
writeln;
end;
k:=0;
for i:= 1 to n do
begin
for j:= 1 to m do
if a[i,j]<>0 then
inc(k);
if k=m then
inc(l);
k:=0;
end;
write('Kol-vo strok ne coderzasih ni odnogo nylevogo elementa: ',1);
end.

program z_7;
uses crt;
const N=10;
var a:array [1..N] of integer;
i:integer;
max:integer;
imax:integer;
begin
clrscr;
randomize;
for i:=1 to N do
begin
a[i]:=random(175);
write (A[i]:5)
end;
writeln;
imax:=1;
max:=A[1];
for i:=2 to N do
if max<a[i] then
begin
max:=a[i];
imax:=i
end;
writeln('Maksimalnyi rost=',max:5);
writeln('Ego nomer=',imax:5);
readln
end.

Program z_10;
uses crt;
var
s:string;
i,c:integer;
begin;
clrscr;
readln(s);
c:=0;
while pos('"',s) <>0 do
begin
delete (s,pos('"',s),1);
inc(c);
writeln('Result: ',c);
end;
end.