дописать программу

Program Work_4;
{Работа №4, вариант №620, гр.БГБ-13-04, Тимерханов И.Р.}
Type vector=array[1..100] of integer;
var Vr, n, i, a, b: integer;
G: vector;
Dev : text;
name: string;
Sa: real;
 
Procedure Part_1(Vr,n,a,b:integer; var G:vector);
var i:integer;
Begin
If Vr<>1 then randomize;
for i:=1 to n do g[i]:=a+Round((b-a)*Random(100)/100);
end;
 
Procedure Part_2(n:integer; G:vector; var Sa:real);
var i,k:integer;
S:real;
Begin
S:=0;
k:=0;
For i:=1 to n do
If g[i]<0 then
begin
S:=S+g[i];
k:=k+1;
end;
If k>0 then
If S<0 then Sa:=S/k
else Sa:=0
else Sa:=0;
end;
 
Procedure Part_3(n,a,b:integer; G:vector);
var i,k,M:integer;
Begin
M:=-32761;
k:=0;
For i:=n div 4+1 to n div 2 do
If ((i mod 3 =0) and (M<=g[i])) then
begin
M:=g[i];
k:=i;
end;
If k>0 then
begin
writeln(dev,'Максимальное значение M = ',m:3);
write(dev,'имеют G[',k:2,'] = ',g[k]:2);
For i:=k+1 to n div 2 do
If ((i mod 3 =0) and (g[i]=M)) then write(dev,' G[',i:2,'] = ',g[i]:2);
writeln(dev);
end
else writeln(dev,'Нет максимального значения');
end;
 
Procedure Part_4(n:integer; var G:vector);
var i,j,k,buf:integer;
Begin
For i:=n div 2 + 1 to 3*n div 4 - 1 do
If ((i mod 3 =0) and (g[i]>=0)) then 
begin
k:=i;
For j:=i+1 to 3*n div 4 do
If ((j mod 3 =0) and (g[i]>=0)) then k:=j;
buf:=g[i];
g[i]:=g[k];
g[k]:=buf;
end;
end;
 
Begin
writeln('для вывода на экран введите con');
writeln('для вывода на принтер введите prn');
write('для вывода в файл введите его адрес: ');
readln(name);
Assign(Dev,name);
Rewrite(Dev);
write('введите вариант расчета Vr => ');
readln(Vr);
if Vr=0 then
begin
n:=16; a:=-3; b:=4;
g[1] := 1; g[2] := 0; g[3] :=-3; g[4] := 2; g[5] := 0;
g[6] :=-3; g[7] := 4; g[8] := 3; g[9] := 4; g[10]:= 0;
g[11]:= 0; g[12]:= 2; g[13]:= 0; g[14]:=-2; g[15]:=-1;
g[16]:=-1; 
end
else
begin
Write('Введите n,a,b => '); readln(n,a,b);
Part_1(Vr,n,a,b,g);
end;
writeln(dev,'++++++++++++++++++++++++++++++++++++++++++++++++++++++');
writeln(dev,'Исходный массив:');
For i:=1 to n do
begin
write(dev,g[i]:3);
if i = n div 2 then writeln(dev);
end;
writeln(dev);
writeln(dev,'++++++++++++++++++++++++++++++++++++++++++++++++++++++');
part_2(n,g,sa);
writeln(dev,'Среднеарифметическое Sa=',Sa:7:4);
writeln(dev,'++++++++++++++++++++++++++++++++++++++++++++++++++++++');
part_3(n,a,b,g);
writeln(dev,'++++++++++++++++++++++++++++++++++++++++++++++++++++++');
part_4(n,G);
writeln(dev,'Упорядоченный массив:');
for i:=1 to n do
begin
write(dev,g[i]:3);
if i = n div 2 then writeln(dev);
end;
writeln(dev);
writeln(dev,'++++++++++++++++++++++++++++++++++++++++++++++++++++++');
close(dev);
end.