Составить блок-схему к программе

program lab16; 
 
const 
Glas: Set Of Char = ['e', 'u', 'i', 'o', 'a', 'y', 'E', 'U', 'I', 'O', 'A', 'Y']; //множество гласных букв 
Soglas: Set Of Char = ['B'..'D', 'b'..'d', 'F'..'H', 'f'..'h', 'J'..'N', 'j'..'n', 'P'..'T', 'p'..'t', 'V'..'Z', 'v'..'z']; //множество согласных букв 
Znak: Set Of Char = ['.', '?', '!', ':', ';', ',', '-', '(', ')', ''''];//множество знаков препинания 
 
var 
f: text; //f - текстовый файл 
countG: Word = 0; //переменная, отвечающая за кол-во гласных букв 
countS: Word = 0; //переменная, отвечающая за кол-во согласных букв 
countZ: Word = 0; //переменная, отвечающая за кол-во знаков препинания 
c: Char; 
 
procedure Counter(var x, y, z: Word; const s: Char); 
begin 
if (s in Glas) then Inc(x); //если символ есть в множестве гласных букв, то увеличиваем соответствующую переменную 
if (s in Soglas) then Inc(y); //если символ есть в множестве согласных букв, то увеличиваем соответствующую переменную 
if (s in Znak) then Inc(z); //если символ есть в множестве знаков препинания , то увеличиваем соответствующую переменную 
end; 
 
begin 
Assign(f, 'f.txt'); //берем файл с диска 
Reset(f); //открываем файл на чтение 
 
writeln('Текст в файле: '); 
while not (Eof(f)) do //выполняем цикл,пока не достигнут конец файла 
begin 
Read(f, c); //читаем символ 
write(c);//выводим на экран символ 
Counter(countG, countS, countZ, c); //передаем процедуре считанный символ 
end; 
 
Close(f); //закрываем файл 
writeln;//для удобочитаемости переходим на новую строку 
writeln;//для удобочитаемости переходим на новую строку 
WriteLn('Glassnie: ', countG);//выводим кол-во гласных букв 
WriteLn('Soglassnie: ', countS);//выводим кол-во согласных букв 
WriteLn('Znaki: ', countZ);//выводим кол-во знаков препинания 
end.