построение блок-схемы

[mr.Starosta]

Помогите пожалуйста составить блок-схему

program a;
uses crt;
procedure soz;
var
F: text;
s: string[100];
begin
Assign(F, 'C:\file.txt');
Rewrite(F);
Writeln('Zapolnite dokument');
Writeln('Nazvanie plozhad zhiteli god osnovaniya');
repeat
Readln(s);
Writeln(F,s);
until s=' ';
Close(F);
end;
procedure log;
var
F: file of char;
c:char;
begin
Assign(F, 'C:\file.txt');
Reset(F);
Writeln('Nazvanie plozhad zhiteli god osnovaniya');
While not eof(F) do
begin
read(F,c);
Write(c);
end;
Close(F);
end;
procedure poisk;
var
f: text;
str,s:string;
begin
Assign(F, 'C:\file.txt');
Reset(F);
Writeln('slovo dlya poiska');

Readln(s);
Writeln('Nazvanie plozhad zhiteli god osnovaniya');
while not eof(F) do
begin
Readln(F, str);
if pos(s, str)>0 then
Writeln(str);
end;
Close(F);
end;
procedure dobov;
var
F: text;
s: string[100];
begin
Assign(F, 'C:\file.txt');
Append(F);
Writeln('Dobavte zapis');
Writeln('Nazvanie plozhad zhiteli god osnovaniya');
repeat

Readln(s);
Writeln(F,s);
until s=' ';
Close(F);
end;
var
m:Byte;
q:integer;
begin
ClrScr;
q:=0;
repeat
Writeln('---------------------------------------------');
Writeln('1-sozdanie');
Writeln('2-zagrazka');
Writeln('3-poisk');
Writeln('4-dobovlenie');
Writeln('5-vyx');
Readln(m);
Writeln('---------------------------------------------');
case m of
1:soz;
2:log;
3: poisk;
4obov;
end;
until m=5;
end.

[BDA]

FCEditor Вам в помощь.