Помогите решить программу в паскале)

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

type mas = array of integer;

var
arr: array [1..1000] of integer;
arrN: array [1..10] of mas;
i, n: integer;
arrName: array[1..10] of string =('Кратные 3 и не кратные 5: ',
'Являются квадратами четных чисел: ',
'Имеют не четные порядковые номера и являются четными числами: ',
'Имеют четные порядковые номера и являются не четными числами: ',
'Являются удвоенными не четными числами: ',
'Являются полными квадратами: ',
'Имеют не четные порядковые номера и являются не четными числами: ',
'Имеют четные порядковые номера и являются чётными числами: ',
'Являются квадратами нечетных чисел: ',
'При делении на 7 дают остаток 1 или 2: '
);

procedure print(arrnl:array of integer; io:integer);
var
i: integer;
begin
write(arrName[io]);
for i:=0 to high(arrnl) do
write(arrnl[i],' ');
writeln;
end;

begin
write('n=');
readln(n);

for i:=1 to n do begin
//readln(arr[i]);
arr[i]:=i;

if (arr[i] mod 3 = 0) and (arr[i] mod 5 <> 0) then begin
setLength(arrN[1], length(arrN[1])+1);
arrN[1][high(arrN[1])]:=Arr[i];
end;

if (frac(sqrt(arr[i])) = 0) and (round(sqrt(arr[i])) mod 2 = 0) then begin
setLength(arrN[2], length(arrN[2])+1);
arrN[2][high(arrN[2])]:=Arr[i];
end;

if (i mod 2 <> 0) and (arr[i] mod 2 = 0) then begin
setLength(arrN[3], length(arrN[3])+1);
arrN[3][high(arrN[3])]:=Arr[i];
end;

if (i mod 2 = 0) and (arr[i] mod 2 <> 0) then begin
setLength(arrN[4], length(arrN[4])+1);
arrN[4][high(arrN[4])]:=Arr[i];
end;

if (arr[i] mod 2 <> 0) and ((arr[i] div 2) mod 2 = 0) then begin
setLength(arrN[5], length(arrN[5])+1);
arrN[5][high(arrN[5])]:=Arr[i];
end;

if (frac(sqrt(arr[i])) = 0) then begin
setLength(arrN[6], length(arrN[6])+1);
arrN[6][high(arrN[6])]:=Arr[i];
end;

if (i mod 2 <> 0) and (arr[i] mod 2 <> 0) then begin
setLength(arrN[7], length(arrN[7])+1);
arrN[7][high(arrN[7])]:=Arr[i];
end;

if (i mod 2 = 0) and (arr[i] mod 2 = 0) then begin
setLength(arrN[8], length(arrN[8])+1);
arrN[8][high(arrN[8])]:=Arr[i];
end;

if (frac(sqrt(arr[i])) = 0) and (round(sqrt(arr[i])) mod 2 <> 0) then begin
setLength(arrN[9], length(arrN[9])+1);
arrN[9][high(arrN[9])]:=Arr[i];
end;

if (arr[i] mod 7 = 1) or (arr[i] mod 7 = 2) then begin
setLength(arrN[10], length(arrN[10])+1);
arrN[10][high(arrN[10])]:=Arr[i];
end;
end;

for i:=1 to 10 do
print(arrN[i], i);

readln;
readln;
end.

Это все надо в одной программе сделать, или 10 программ? Пиши