Виктор76

Здравствуйте. Помогите составить блок схему для данной программы.
program q;
readln(b);
for i:=1 to b do
begin
readln(a);
Writeln(f1,a,' ');
end;
Reset(f1);
while not Eof(f1)do
begin
Readln(f1,m);
if m<0 then
Writeln(f3, m,' ')
else
Writeln(f2, m,' ');
end;
reset(f2);
write('Polojitelnie chisla: ');
while not Eof(f2)do
begin
Readln(f2,m);
write(m,' ');
end;
writeln;
reset(f3);
write('Otricatelnie chisla: ');
while not Eof(f3)do
begin
Readln(f3,m);
write(m,' ');
end;

Close(f1);
Close(f2);
Close(f3);
readln;
end.