Помогите с заданием по PascalABC

program _1;

const
N=5;

var
A:array[1..N] of real;
p:real;
i:integer;

begin
for i:=1 to N do
begin
write('A[', i, ']=');
readln(A[i]);
end;
write('P=');
readln(p);
for i:=1 to N do
begin
write(A[i]:0:3, ' ');
end;writeln;
for i:=1 to N do
begin
write((exp(A[i]) / p):0:3, ' ');
end;
end.

program _2;

const
N = 5;

var
A: array[1..N] of real;
_min: real;
i, c: integer;

begin
for i := 1 to N do
begin
write('A[', i, ']=');
readln(A[i]);
end;
_min := A[1]; c := 0;
for i := 1 to N do
begin
if A[i] < _min then
_min := A[i];
if A[i] > 0 then
inc(c);
end;
for i := 1 to N do
write(A[i]:0:3, ' ');
writeln(#10#13, 'min=', _min);
writeln('count of positive elements=', c);
end.

program _3;

procedure _print(A:array of real; n:integer);
var
i:integer;
begin
for i := 0 to n - 1 do
write(A[i]:0:3, ' ');
writeln;
end;

const
N = 5;

var
A:array of real = (1, -7, 6, 0, -3.25);
B:array of real = (-0.5, 3, -5, 7, 1);
C:array of real;
i, count:integer;

begin
_print(A, N);
_print(B, N);
count := 0;
for i:=0 to N - 1 do
begin
if A[i] > 0 then
begin
inc(count);
setlength(C, count);
C[count - 1] := A[i];
end;
if B[i] > 0 then
begin
inc(count);
setlength(C, count);
C[count - 1] := B[i];
end;
end;
_print(C, count);
end.