randomize;
k := 0;
for i := 1 to 20 do
begin
   x[i] = random(100)-50;
   if (x[i] > 0) and (k < 10) then
     begin    
       k := k + 1;      
       new[k] := x[i];
     end;
end;
{new - новый массив из 10 положительных, если их вообще там 10 есть, и содержащий k элементов в противном случае}

randomize;
for j := 1 to 15 do begin
sum[j] := 0;
for i := 1 to 10 do
  begin
   a[i,j] := random(30);
   sum[j] := a[i,j] + sum[j];
  end;
end;