Блок схема программы

uses crt;
type mass=array[1..5] of real;
procedure ReadFile(var f:text;var m1,m2,m3:mass; var n1,n2,n3:byte);
var fname:string;
    i:byte;
begin write('Введите имя файла: ');
readln(fname);
fname:=fname+'.txt';
assign(f,fname);
{$I-} reset(f);
{$I+} if IOResult <> 0 then  begin   writeLn('Не могу открыть файл ',fname);
  writeLn('Работа программы завершена. Нажмите ENTER');
  readln;
  halt(1);
 end;
read(f,n1);
writeln('Vector1:');
for i:=1 to n1 do  begin   read(f,m1[i]);
  write(m1[i]:6:2);
 end;
writeln;
writeln('Vector2:');
read(f,n2);
for i:=1 to n2 do  begin   read(f,m2[i]);
  write(m2[i]:6:2);
 end;
writeln;
writeln('Vector3:');
read(f,n3);
for i:=1 to n3 do  begin   read(f,m3[i]);
  write(m3[i]:6:2);
 end;
writeln;
writeln;
close(f);
end;
function Summ(m:mass;n:byte):real;
var i:byte;
    sm:real;
begin sm:=0;
for i:=1 to n do sm:=sm+m[i];
Summ:=sm;
end;
procedure NewMas(m1,m2,m3:mass;n1,n2,n3:byte;var m4:mass);
var i:byte;
begin 
m4[1]:=Summ(m1,n1);
m4[2]:=Summ(m2,n2);
m4[3]:=Summ(m3,n3);
writeln('New Massiv:');
for i:=1 to 3 do write(m4[i]:6:2);
writeln;
end;
procedure SumAbs(m:mass;var sm:real);
var i:byte;
begin sm:=0;
for i:=1 to 3 do sm:=sm+abs(m[i]);
writeln('Summa abs znach=',sm:0:2);
end;
Procedure Max(m:mass;var mx:real;var imx:byte);
var i:byte;
begin mx:=abs(m[1]);
for i:=1 to 3 do if abs(m[i])>mx then  begin   mx:=m[i];
  imx:=i;
 end;
writeln('Max=',mx:0:2,'  nomer=',imx);
end;
 
var vec1,vec2,vec3,n_mas:mass;
    k1,k2,k3,nom:byte;
    sum,max_el:real;
    t:text;
begin clrscr; ReadFile(t,vec1,vec2,vec3,k1,k2,k3);
NewMas(vec1,vec2,vec3,k1,k2,k3,n_mas);
SumAbs(n_mas,sum);
Max(n_mas,max_el,nom);
readln 
end.