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

Program labrab8_1;
var f:file of integer;
a,i,n1,cp,i1,ip,j,k:integer;
begin
WriteLn('Лабораторная работа 8_1');
WriteLn('Вариант 5');
WriteLn('ИС-14-1-1');
WriteLn('Зыков Роман');
writeln;
assign(f,'fileF');
rewrite(f);
writeln('Введите целые числа, окончание ввода 0:');
repeat
read(a);
if a<>0 then 
write(f,a);
until a=0;
seek(f,0);
i1:=-1;
i:=0;
while (i<filesize(f))and(i1=-1)do
begin
seek(f,i);
read(f,a);
if a mod 2=0 then 
begin
n1:=a;
i1:=i
end
else inc(i);
end;
if i1=-1 then writeln('В файле нет нечетных чисел')
else writeln('Первое четное число=',n1,' его позиция в файле=',i1);
seek(f,0);
ip:=-1;
i:=filesize(f)-1;
while (i>=0)and(ip=-1)do
begin
seek(f,i);
read(f,a);
if odd(a) then 
begin
cp:=a;
ip:=i
end
else dec(i);
end;
if ip=-1 then writeln('В файле нет четных чисел')
else writeln('Последнее нечетное число=',cp,' его позиция в файле=',ip);
if abs(i1-ip)=1 then write('Первое нечетное и последнее черное рядом, удаления нет')
else if(i1>-1)and(ip>-1)then
begin
if ip<i1 then
begin
a:=ip;
ip:=i1;
i1:=a;
end; 
k:=ip-i1-1;
seek(f,0);
for i:=1 to k do
for j:=i1+1 to filesize(f)-2 do
begin
seek(f,j+1);
read(f,a);
seek(f,j);
write(f,a);
end;
seek(f,filesize(f)-k);
truncate(f);
seek(f,0);
writeln('Удаление элементов между первым нечетным и последним четным:');
while not eof(f) do
begin
read(f,a);
write(a,' ');
end;
end;
close(f)
end.