Составить Блок-схемы для нескольких кодов

uses crt;
var
sum,i:integer;
a:array[1..13] of integer;
t:text;
begin
sum:=0;
assign(t,'F.txt');
writeln('Введите элементы массива:');
for i:=1 to 13 do readln(a[i]);
rewrite(t);
for i:=1 to 13 do write(t,a[i],' ');
close(t);
write('Элементы массива, удовлетворяющие условию: ');
for i:=1 to 13 do
if ((a[i]*4)>sqr(a[i])) then
begin
write(a[i],' ');
inc(sum,a[i]);
end;
writeln;
writeln('Сумма = ',sum);
end.

uses crt;
var f:file of real;
    n,i,k,imn,imx:integer;
    a,sr,mn,mx:real;
begin
randomize;
assign(f,'fileF');
rewrite(f);
repeat
write('Сколько чисел записать в файл n>0 n=');
readln(n);
until n>0;
for i:=1 to n do
 begin
  a:=-10+20*random;
  write(f,a);
 end;
writeln('Содержание исходного файла:');
reset(f);
if filesize(f)=1 then//если только 1 число
 begin
  read(f,a);
  writeln(a:0:2);
  write('В файле 1 элемент, преобразование невозможно');
  close(f);
  exit;//выход
 end;
//если больше
read(f,mn);//читаем первое, оно пока минимум и максимум
write(mn:0:2,' ');
mx:=mn;
k:=0;
sr:=0;
if mn>0 then//если положительное, то считаем и добавляем в сумму
 begin
  k:=1;
  sr:=mn;
 end;
for i:=1 to filesize(f)-1 do//читаем остальные
 begin
  read(f,a);
  write(a:0:2,' ');
  if a<mn then//ищем мин и его индекс
   begin
    mn:=a;
    imn:=i;
   end;
  if a>mx then//макс и его индекс
   begin
    mx:=a;
    imx:=i;
   end;
  if a>0 then//если положительное, сумме и количество
   begin
    k:=k+1;
    sr:=sr+a;
   end;
 end;
writeln;
writeln('Минимальный  элемент=',mn:0:2,' его номер=',imn+1);
writeln('Максимальный элемент=',mx:0:2,' его номер=',imx+1);
if k=0 then
 begin
  writeln('Положительных чисел в файле нет, преобразование невозможно');
  close(f);
  exit;
 end;
sr:=sr/k;
writeln('Среднее положительных=',sr:0:2);
//замена мин и макс на сред
seek(f,imn);
write(f,sr);
seek(f,imx);
write(f,sr);
seek(f,0);
writeln('Содержание преобразованного файла:');
while not eof(f) do
 begin
  read(f,a);
  write(a:0:2,' ');
 end;
close(f);
end.