Блок-схема Pascal ABC

[Pruha]

Добрый вечер. Помогите сделать блок-схему к данной программе, не представляю даже, как должна выглядеть.

Код программы.

PHP код:

program words;
uses crt;
const
  trash = [#0..#32,'.',',',':',';','!','?','"','+']; // лишние символы
var f:text;
    first_s:char;          // символ с которого должно начинаться слово
    s,word1,word:string; //s-текущая строка в файле, word1- слово из которого получаем нужный символ, word- найденное слово
    what,i,n,t:integer;         //i-счет элемента массива S, n - количество найденныъ слов, t-номер индекс необходимого символа
begin

     clrscr;
     writeln('Данная программа позволяет находить все слова, встечающиеся в текстовом файле,',#10,'которые начинаются на первую букву вашего слова.');
     write('Введите вашу фамилию : ');
     readln (word1);
     first_s:=word1[1];  // находим символ с которого будут начинаться слова
     if (first_s in ['а'..'я']) then
     first_s:=chr(ord(first_s)-32);
     writeln (first_s,' - искомая буква');

     assign (f,'C:\file.txt');
     reset (f);

     while not Eof(f) Do                  //пока не конец файла

           begin
                while not Eoln(f) Do      // пока не конец строки
                      begin
                           read(f,s);     //считываем файл построчно
                           s:=' '+s;
                           for i:=1 to length(s) do        // с первого элемента до конца строки
                               if (((s[i]=first_s)and((s[i-1]in trash)or(s[i-1]=' '))) or
                                  ((s[i]=chr(ord(first_s)+32))and((s[i-1]in trash)or(s[i-1]=' ')))) then  //удаляем лишние символы   (формативроание)
                                  begin
                                        n:=n+1;   //прибавляем счетчик слов
                                        t:=i;     //запоминаем номер индекса с которого нужно копировать
                                        while(i<=length(s)) and not(s[i] in trash) do
                                        i:=i+1;                 //переходим к след символу в строке
                                        word:=copy(s,t, i-t);   //
                                        writeln (word); //выводим все найденные слова
                                  end;
                            i:=i+1;       //переходим к след символу в строке
                      end;
                readln(f);
                writeln;
           end;
     close(f);
     if n > 0 then
        writeln (n ,' - слов(a) начинае(ю)тся на букву "',first_s,'"')
        else
        writeln ('Нет слов, начинающихся на букву " ',first_s,' "');
end.