Помогите плз с блок-схемами

program p2a;
uses
crt;
var
a:array[1..100] of integer;
n,i,s,p,w,z,q:integer;
begin
clrscr;
w:=0;
s:=0;
randomize;
read(q);
for n:=1 to q do
a[n]:=random (899)+100;
for n:=1 to q do
begin
p:=a[n] mod 10;
if p=1 then i:=i+1;
if p=0 then s:=s+1;
w:=a[n] mod 100 div 10;
if w=1 then i:=i+1;
if w=0 then s:=s+1;
z:=a[n] div 100;
if z=1 then i:=i+1;
if z=0 then s:=s+1;
write (a[n]:4);
end;
writeln;
writeln(, s);
writeln('', i);
if s>i then writeln('нулей больше')
else
if i>s then writeln('единиц большеҐ')
else
writeln('количество равно');
readkey;
end.

program p2a;
uses
crt;
var
a:array[1..100,1..100] of integer;
i,j,n,m,min,max,buf,s1,s2:integer;
begin
clrscr;
randomize;
read(m);
read(n);
min:=40;
for i:=1 to m do
for j:=1 to n do
a[i,j]:=random(89)+10;
for i:=1 to m do
begin
for j:=1 to n do
write(a[i,j]:3);
writeln;
end;
for i:=1 to m do
for j:=1 to n do
if a[i,j]>max then
begin
max:=a[i,j];
s1:=i;
end;
for i:=1 to m do
for j:=1 to n do
if a[i,j]<min then
begin
min:=a[i,j];
s2:=i;
end;
for j:=1 to n do
begin
buf:=a[s1,j];
a[s1,j]:=a[s2,j];
a[s2,j]:=buf;
end;
for i:=1 to m do
begin
for j:=1 to n do
write(a[i,j]:3);
writeln;
end;
readkey;
end.

program p2a;
uses
crt;
var
text:string[100];
i,j,z:integer;
begin
clrscr;
read(text);
text:=text+'@';
for i:=1 to length(text) do
for j:=i+1 to length(text) do
if ord(text[i])=ord(text[j]) then
begin
delete(text,j,1);
dec(j);
end;
delete(text,length(text),1);
writeln(text);
readkey;
end.

program p2a;
uses
crt;
type
alfavit=set of 'A'..'Я';
var
glasnaya,soglasnaya:alfavit;
text:string;
i,g,s:byte;
begin
clrscr;
glasnaya:=['все гласные'];
soglasnaya:=[все согласные' ];
readln(text);
g:=0;
s:=0;
for i:=1 to length(text) do
begin
if text[i] in glasnaya then
g:=g+1;
if text[i] in soglasnaya then
s:=s+1;
end;