Надо составить блок схему по коду

[sisaw]

const n = 6;
var
f : file of integer;
x,y,i,m : integer;
z : array [1..n] of integer;
begin
assign(f,'C:\Users\я\Desktop\файл111.txt');
rewrite(f);
x := 0;
y := 0;
for i := 1 to n do
begin
readln(m);
Write(f,m);
end;
reset(f);
for i:=1 to n do
read(f,z[i]);
for i := 1 to n do
if z[i] mod 2 = 0 then
inc(x)
else
inc(y);
if x > y then
writeln('Больше чётных')
else if y > x then
writeln('Больше нечётных')
else
writeln('Поровну');
reset(f);
i := 1;
while not eof(f) do
begin
read(f,z[i]);
write(z[i],' ');
inc(i);
end;
close(f);
readln;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

если Вам принципиально лень погуглить и взять любую из программ, которые строят блок-схему по готовой программе (diamFC, FCEditor, FCMaker и т.п.), то я могу сделать это за Вас.

[sisaw]

Сообщение от Serge_Bliznykov

если Вам принципиально лень погуглить и взять любую из программ, которые строят блок-схему по готовой программе (diamFC, FCEditor, FCMaker и т.п.), то я могу сделать это за Вас.

Вот знаете у меня эти все программы выдают ошибку. Если бы они работали я не задавал бы такие глупые вопросы на форуме

[Serge_Bliznykov]

Сообщение от sisaw

Вот знаете у меня эти все программы выдают ошибку. Если бы они работали я не задавал бы такие глупые вопросы на форуме

А вот почему у меня эти программы работают?
Я что-то делаю не так?!!

(c) FCMaker
bl1.jpg

(c) diamFC
bl2.jpg

с Вас 50 рублей!