составить схему по программе

program kt1_p2_c11;
uses crt{,printer};
type vect=array[1..29]of real;
Var a,b:vect;
  m1,m2:file of real; an,ak,x:real;
  i,k,j,n:integer;   lst:char;
  imf:string;
 
procedure zapvfile(a,b:vect;imf1,imf2:string;an,ak:real; var n,j:integer);
var i:integer;sra:real;
    m:file of real;
begin
Assign(m1,imf1);rewrite (m1);
Assign(m2,imf2);rewrite (m2); sra:=0;
writeln(lst,'  Запись в файл  ',imf1);i:=0;j:=0;
  for i:=1 to n do  begin  a[i]:=an+random*(ak-an);
   write(m1,a[i]);write(lst,a[i]:4:1);b[i]:=a[i];
   if i mod 12=0 then  writeln(lst);
   sra:=sra+a[i]; end;
 writeln(lst);
 sra:=sra/n;  writeln(lst);
  writeln(lst,'Среднее арифметическое массива а : sra=',sra:6:2);
 writeln(lst,'  Запись в файл  ',imf2); j:=0;
 for i:=1 to n do  begin
 if a[i]>sra then
 begin j:=1+j;b[j]:=a[i];
 write(lst,b[i]:4:1); write(m2,b[i]);
    if j mod 12=0 then  writeln(lst);end;end;
 writeln(lst);close(m1);close(m2); end;
 
 
procedure pechfile(imf:string;im:char;n,k:integer);
var i:integer; x:real;
      m:file of real;
 begin
 Assign(m,imf);reset (m);
  writeln(lst,'  Исходный массив  ',im);
  for i:=1 to n do
  begin seek(m,i-1);read(m,x);
  write(lst,im,'[',i:2,']=',x:5:1,' ');
  if i mod k =0  then writeln(lst); end;
 writeln(lst);close(m); end;
 
procedure sort(imf:string;n,k:integer);
var i,flag,mn:integer;x,y:real;
l:longint;  m:file of real;
begin
Assign(m,imf);reset (m);
if k=1 then
 writeln(lst,'  Сортировка файла  ',imf,' по возрастанию ');
if k=2 then
 writeln(lst,'  Сортировка файла  ',imf,' по убыванию ');
flag:=1;
while flag=1 do
 begin flag:=0;
  for i:=1 to n-1 do
  begin
   seek(m,i-1);read(m,x,y);
  if (k=1) and (x>y) then begin seek(m,i-1); write(m,y,x);flag:=1;end;
 if (k=2) and (x<y) then begin seek(m,i-1); write(m,y,x);flag:=1;end;
  end;end;
   for l:=1 to n do
    begin seek(m,l-1);read(m,x);
    write(lst,'',x:5:1);
    if l mod 12=0 then writeln(lst);end;
      writeln(lst,'       ');writeln(lst,'       ');
   close(m);
    end;
 
procedure pstolbec(a:vect; n,k,s:integer;im:char;imf:string);
var i,j,st,mn:integer;
    m:file of real;
begin
Assign(m,imf);reset (m);
write(lst,' Файл ',imf,',отсортированный по  ');
if k=1 then writeln(lst,' возрастанию, выводится ')
  else writeln(lst,' убыванию, выводится ');
  writeln(lst,'в 8 строк, индекс – по столбцам');
  st:=n div s;  if n- st*s>0 then st:=st+1;
 for i:=1 to n do begin
   seek(m,i-1);read(m,a[i]); end; i:=1;
for i:=1 to s  do begin
   for j:=1 to st do
   begin mn:=i+(j-1)*s;
    if mn<=n then  begin  seek(m,i-1);read(m,a[i]);
   write(lst,im,'[',mn:2,']=',a[mn]:4:1, ' '); end;end;
 writeln(lst);end; close(m);  writeln(lst);end;
 
begin
{ основная программа }
clrscr;
n:=29; an:=-12; ak:=45;{lst:=' ';}
writeln(lst,'         Модуль №1');
 zapvfile(a,b,'m1.txt','m2.txt',an,ak,n,j); writeln(lst);
 
writeln(lst,'         Модуль №2');
pechfile('m1.txt','a',n,6);writeln(lst);
pechfile('m2.txt','b',j,6);{writeln(lst,'j=',j:2);}
 
writeln(lst);writeln(lst,'         Модуль №3');
sort('m1.txt',n,1);
 sort('m2.txt',j,2);writeln(lst);
 
writeln(lst,'         Модуль №4');
 pstolbec(a,n,1,8,'a','m1.txt');
 pstolbec(b,j,2,8,'b','m2.txt');
end.