Пожалуйста, помогите решить задачу в Паскаль:Создать новый массив из первых 10 положительных элементов массива(а1...а40)

А в чём вообще проблемма?
Проходите масив, выбираете положительные элементы, выбрали-закончили.

вполне элементарно!

program...
uses CRT;
var a: array [1..40] of integer;
ar:array [1..10] of integer;
i,n:integer;
begin
randomize;
n:=1;
for i:=1 to 40 do begin
a [ i ]:= random(100) - 50;
writeln('a[ ', i , ] = ', a [ i ]);
if (a [ i ] > 0) and (n <= 10) then begin ar [ n ]:= a [ i ]; inc(n); end;
end;
writeln('poluchenniy masssiv');
for i:=1 to 10 do writeln( ar [ i ]);
readkey;
end.