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

program massiv;
const
  nmax=0.915;
  D1=4.5;
  DM=0.6;
  H=192.62;
  nM:array [1..10] of real=(0.853,0.873,0.893,0.903,0.913,0.923,0.923,0.903,0.873,0.853);
  Q: array [1..10] of real=(0.3,0.33,0.36,0.38,0.4,0.46,0.49,0.54,0.58,0.6);
  n=1-(1-nmax)*exp(1/5*ln(Dm/D1));
  dn=n-nmax;
type
  mas=array [1..10] of real;
var
  f1:text;
  Ni,nT:mas;
  way:integer;
procedure main(var Ni:mas);
var
  i:integer;
begin
  for i:=1 to 10 do
  begin
    nT[i]:=nM[i]+dn;
    Ni[i]:=9.81*sqr(D1)*H*sqrt(H*Q[i])*nT[i];
  end;
end;
procedure toscreen(Ni:mas);
var i:integer;
begin
  write('N[i]':7,'nM[i]':11,'Q[i]':6,'nT[i]':7);
  writeln;
  for i:=1 to 10 do
  begin
    write(Ni[i]:6:3,'|',nM[i]:6:3,'|',Q[i]:6:3,'|',nT[i]:6:3);
    writeln;
  end;
end;
procedure tofile(f1:text;Ni:mas);
var i:integer;
begin
  append(f1);
  write(f1,'N[i]':7,'nM[i]':11,'Q[i]':6,'nT[i]':7);
  writeln;
  for i:=1 to 10 do
  begin
    write(f1,Ni[i]:6:3,'|',nM[i]:6:3,'|',Q[i]:6:3,'|',nT[i]:6:3);
    writeln;
  end;
  writeln(f1,'-------------------------------');
  close(f1);
end;
 
begin
  writeln('new compilation');
  assign(f1,'C:\Users\Алексей\Desktop\ИтоговаяКарсюка\Карс1\result.txt');
  rewrite(f1);close(f1);
  writeln('choose the way of output the data:1-on screen,2-to file');
  readln(way);
  main(Ni);
  if way=1 then toscreen(Ni);
  if way=2 then  tofile(f1,Ni);
end.