Блок схема

[GeneralLukin]

Блок схема

Товарищи, помогите пожалуйста составить блок-схему по данному коду PascalABC или подскажите, если не трудно, где можно найти работающую(!) прогу для составления схем.
Спасибо.

uses crt;
var f:file of real;
i,k:integer;
a,sr:real;
begin
clrscr;
assign(f,'file');
rewrite(f);
writeln('Введите в файл числа, окончание ввода 0:');
repeat
readln(a);
write(f,a);
until a=0;
clrscr;
writeln('Содержание исходного файла:');
reset(f);
sr:=0;k:=0;
for i:=0 to filesize(f)-1 do
begin
read(f,a);
write(a:0:2,' ');
k:=k+1;
sr:=sr+a;
end;
close(f);
writeln;
sr:=sr/k;
writeln('Среднее арифметическое =',sr:0:2);
reset(f);
for i:=0 to filesize(f)-1 do
begin
seek(f,i);
read(f,a);
if a<sr then a:=2*a
else if a>sr then a:=a/3;
seek(f,i);
write(f,a);
end;
close(f);
writeln('Измененный файл:');
reset(f);
while not eof(f) do
begin
read(f,a);
write(a:0:2,' ');
end;
close(f);
readln
end.

 

[Valet]

я пользуюсь FCEditor хорошо делает блок схемы