Нужно сделать блок-схемы для этих програм

Program labrob8;
uses crt;
const prigl= ['П','п','Т','т','Ш','ш','С','с','Ч','ч','Ц','ц','К','к','Х','х'];
      rz=[' ',',','.',';',':','*','#','?','!','-','_','=','+','(',')'];
var a,b:string;
    k,i,j,s,p:integer;
begin
writeln('введите текст');
read(a);
s:=length(a);
k:=0;
for i:=1 to s do
if a[i] in prigl then k:=k+1;
writeln ('Количество глухих согласных=',k);
i:=1;
while i<=s do
if not(a[i] in rz)and((i=1)or(a[i-1] in rz)) then
 begin
  b:='';
  j:=i;
  while(j<=s)and not(a[j] in rz) do
   begin
    b:=b+a[j];
    j:=j+1
   end;
  write('В слові ',b,'  количество символов=',length(b));
  k:=0;
  for j:=1 to length(b) do
  if b[j] in prigl then k:=k+1;
  if k>0 then writeln(' содержит глухие согласные ')
  else writeln(' Не содержит глухих согласных);
  i:=i+length(b)
 end
else i:=i+1;
end.

program lab10;
uses crt;
const abetka='АаЕеЄєИиІіЇїОоУуЮюЯя';
var
  i, j: integer;
  s, masgol: string;
  c: char;
begin
 writeln('Введите предложение заканчивающееся символом "*"');
s:='';
repeat
c:=readkey;
write(c);
s:=s+c;
if c='*' then writeln
until c='*';
masgol:='';
for j := 1 to length(s) do
if pos(s[j],abetka)>0 then masgol:=masgol+s[j];
if masgol='' then
 begin
  write('Гласных букв нету');
  exit
 end;
writeln ('Начальные данные: ');
writeln (masgol);
writeln('Гласные буквы по алфавиту: ');
for i:=1 to length(masgol)-1 do
for j:=i+1 to length(masgol) do
if pos(masgol[i],abetka)>pos(masgol[j],abetka) then
 begin
  c:=masgol[i];
  masgol[i]:=masgol[j];
  masgol[j]:=c;
 end;
write(masgol)
end.