Помогите с программой на паскале

var i, n, mini: integer;
a: array [1..16] of integer;
begin
randomize;
n:=16;
for i:=1 to n do
begin
a[i]:=1+random(99);
write (a[i]:4);
end;
mini:=a[1]*a[n div 2+1];
for i:=2 to n div 2 do
if mini > (a[i]*a[n div 2+i]) then mini:=a[i]*a[n div 2+i];
writeln;
writeln ('minimum = ',mini);
end.

program massiv;
uses crt;
var
i,n,j:integer;
a:array[1..100] of integer;
BEGIN
randomize;
clrscr;
writeln;
n:=16;
writeln('Vektor A: ');
for i:=1 to n do begin
a[i]:=random(10)+1; write(a[i]:3);
end;
writeln;
j:=1;
for i:=2 to 8 do
if a[i]*a[i+8] < a[j]*a[j+8]then j:=i;
writeln(j,' ',a[j],' ',a[j+8]);

end.

55 21 97 94 100 84 41 81 99 26 18 70 2 34 70 12
min proizv= 200 perv = 100 vtor= 2 index= 5
=------------------
11 30 40 56 32 30 81 31 38 41 85 41 73 66 41 96
min proizv= 418 perv = 11 vtor= 38 index= 1
=------------------
65 52 23 59 75 46 91 29 67 90 29 37 2 30 99 77
min proizv= 150 perv = 75 vtor= 2 index= 5
=------------------
59 61 27 51 80 86 10 55 42 8 46 70 50 41 95 99
min proizv= 488 perv = 61 vtor= 8 index= 2
=------------------
60 54 62 9 19 29 2 16 43 55 56 79 5 41 6 32
min proizv= 12 perv = 2 vtor= 6 index= 7
=------------------
61 52 60 33 91 78 58 44 74 17 6 25 76 96 35 69
min proizv= 360 perv = 60 vtor= 6 index= 3
=------------------
80 4 80 49 21 61 91 95 66 2 67 97 1 96 8 30
min proizv= 8 perv = 4 vtor= 2 index= 2
=------------------
59 81 5 6 57 32 42 52 74 46 33 8 41 58 77 59
min proizv= 48 perv = 6 vtor= 8 index= 4
=------------------
66 81 42 80 73 70 74 20 78 7 25 96 82 22 19 24
min proizv= 480 perv = 20 vtor= 24 index= 8
=------------------
93 26 26 72 67 78 76 31 83 72 90 23 36 56 36 21
min proizv= 651 perv = 31 vtor= 21 index= 8
=------------------
58 63 14 7 64 84 65 43 19 50 98 77 39 49 55 68
min proizv= 539 perv = 7 vtor= 77 index= 4
=------------------
4 65 90 35 12 43 78 36 42 75 44 72 51 18 28 9
min proizv= 168 perv = 4 vtor= 42 index= 1
=------------------
98 29 62 31 86 32 80 18 31 8 50 46 60 4 32 14
min proizv= 128 perv = 32 vtor= 4 index= 6
=------------------
33 77 63 97 83 56 61 20 91 32 61 60 77 72 69 77
min proizv= 1540 perv = 20 vtor= 77 index= 8
=------------------
26 55 51 57 29 42 36 98 52 59 47 4 38 14 66 16
min proizv= 228 perv = 57 vtor= 4 index= 4
=------------------
20 38 10 62 71 44 43 34 71 22 5 89 5 46 74 76
min proizv= 50 perv = 10 vtor= 5 index= 3
=------------------
83 21 47 87 83 42 47 35 25 81 55 54 63 9 72 26
min proizv= 378 perv = 42 vtor= 9 index= 6
=------------------
6 28 97 33 65 37 37 33 22 22 43 62 25 69 59 61
min proizv= 132 perv = 6 vtor= 22 index= 1
=------------------
8 5 16 25 40 59 29 84 90 53 39 1 26 17 65 99
min proizv= 25 perv = 25 vtor= 1 index= 4
=------------------
32 25 88 13 57 61 62 70 86 10 40 83 27 68 40 84
min proizv= 250 perv = 25 vtor= 10 index= 2
=------------------
44 84 22 74 90 22 99 97 88 53 66 46 16 65 62 86
min proizv= 1430 perv = 22 vtor= 65 index= 6
=------------------
37 6 51 6 38 46 30 97 2 66 62 54 3 72 32 99
min proizv= 74 perv = 37 vtor= 2 index= 1
=------------------