ребят,помогите решить кому не сложно

program Z1;
var
j,min,count: integer;
A: array [1..12] of integer;
begin
count:=0;
writeln('Vvedi chisla');
for j:=1 to 12 do
begin
read(A[j]);
if j=1 then
min:=A[j];
if min>A[j] then
min:=A[j];
if A[j] mod 4 = 0 then
inc(count);
end;
for j:=1 to 12 do
begin
if A[j]=min then
A[j]:=count;
write(A[j], ' ');
end;
end.

program Z2;
var
f: boolean;
j,max,n: integer;
B: array [1..1000] of integer;
begin
f:=false;
write('Vvedi N '); readln(n);
writeln('Vvedi chisla');
for j:=1 to n do
begin
read(B[j]);
if (B[j] mod 5 = 0)and(j mod 2 = 1) then
begin
if (max

program series;
const n:integer =100;

procedure FillArr(var a:array[0..12] of integer);
var i:integer;
begin
for i:=0 to 11 do a:=random(20);
end;

procedure PrintArr(const a:array[0..12] of integer);
var i:integer;
begin
for i:=0 to 11 do write(a,' ');
writeln;
end;

procedure MinPos(var a:array[0..12] of integer);
var i,minpos,min,cnt:integer;
begin
cnt:=0;
minpos:=-1;
min:=100;
for i:=0 to 11 do
begin
if a<min>;
minpos:=i;
end;
if (a mod 4 =0) and (a<>0) then inc(cnt);
end;
a[minpos]:=cnt;
end;

procedure FillArrN(var a:array[0..n] of integer);
var i:integer;
begin
for i:=0 to n-1 do a:=random(20);
end;

procedure PrintArrN(const a:array[0..n] of integer);
var i:integer;
begin
for i:=0 to n-1 do write(a,' ');
writeln;
end;

function MaxPos(var a:array[0..n] of integer):integer;
var i,max:integer;
begin
max:=-1;
for i:=0 to n-1 do
if (i mod 2<>0) and (a mod 5=0) and (a<>0) and (a>max) then max:=a;
result:=max;
end;

var a:array[0..12] of integer;
b:array[0..n] of integer;
begin
writeln('First task:') ;
FillArr(a);
printarr(a);
minpos(a);
printarr(a);
writeln();
writeln('Second task:');
FillArrN(b);
printarrN(b);
writeln('Max % 5 ',maxpos(b));
end.