Построить блок-схему
 

люди кому не сложно помогите плиз построить блок схему к этой проге

uses crt;
var f,g:file of integer;
k,i,x:integer;
begin
RANDOMIZE;
assign (f,'f.txt');rewrite(f);
assign (g,'g.txt');rewrite(g);
writeln('vvedi k');readln(k);
for i:=1 to 10 do
begin
x:=random(100);
write(f,x);
end;
close(f);
reset(f);
while not eof(f) do
begin
read(f,x);
if x mod k<>0 then write(g,x);
end;
close(f);close(g);
reset(f);
reset(g);
writeln('исходный фаил');
while not eof(f) do
begin
read(f,x);
write(x:4); end;
close(f);
writeln;
writeln('числа которые не кратны ','"',k,'"');
while not eof(g) do
begin
read(g,x);
write(x:4); end;
close(g);
end.

пллииииз очень нужно