Помощь С Блок-Схемой Алгоритма

[Matix]

Всем доброго времени суток!
Прошу помочь мне с блок-схемой алгоритма для данной программы:

uses crt;
var f:text;
        adres,slovo,slovar:string;
    k:integer;
    i:longint;
    l:boolean;
    ch:char;
function proverka(slovo,slovar:string):boolean;
var flag:boolean;
        ch:char;
        begin
        flag:=true;
                repeat

                        if pos(slovar[1],slovo)=0 then flag:=false
                                else
                                        begin
                                                delete(slovo,pos(slovar[1],slovo),1);
                                                delete(slovar,1,1);
                                        end;
                until(flag=false)or(slovar='');
          proverka:=flag;
        end;
begin
  l:=false;
  clrscr;
  writeln('Dobavit slovo v slovar : 1 ');
  writeln('Nayti v slovare slova  : 2 ');
  ch:=readkey;
if ch='1' then
 begin
   clrscr;
   writeln('Vvedite adres slovarya ');
   readln(adres);
   writeln('Vvedite slovo kotoroe nado dobavit ');
   readln(slovo);
   assign(f,adres);
   reset(f);
    repeat
     readln(f,slovar);
     if slovo=slovar then l:=true;
    until(eof(f))or(l);
   close(f);
   if l then writeln('Takoe slovo est ')
    else
      begin
       append(f);
       writeln(f,slovo);
       close(f);
       writeln('Slovo dobavleno ');
      end;
 end;
if ch='2' then
 begin
  clrscr;
  writeln('Vvedite adres slovarya ');
  readln(adres);
  writeln('Vvedite slovo ');
  readln(slovo);
  assign(f,adres);
  reset(f);
  k:=0;
  i:=0;
    repeat
      readln(f,slovar);
     if length(slovar)<=length(slovo) then
      if proverka(slovo,slovar)=true then
        begin
          l:=true;
          writeln(slovar);
          k:=k+1;
          i:=i+1;
        end;
      if k=20 then
       begin
        readln;
        k:=0;
       end;
    until(eof(f));


if l=false then writeln('Net')
 else writeln('Naydeno ',i,' slov');

 end;
readln;
end.

Заранее благодарен!

[NSvirus]

подпрограмма и программа... и без пива, за спасибо)

[Matix]

Сообщение от NSvirus

подпрограмма и программа... и без пива, за спасибо)

Ааааа)))))
Спасибо большое)))

[SuperVisor]

Motivation: PRO.
Тема закрыта по причине получения развернутого ответа.