Динамическая память.

var     a:array of integer;
        i,n:integer;
Begin
  writeln('Vvedite dlinny massiva');
  readln(n);
  setlength(a,n);
  for i:=0 to n-1 do begin
    a[i]:=(i+1)*2;
    write(a[i],' ');
    end;
  end.

uses crt;
const n=10;
type a=array[1..20] of integer;
var p:^a;
    kol,i:integer;
begin
clrscr;
new(p);
randomize;
kol:=0;
for i:=1 to n do
begin
p^[i]:=random(41)-20;
write(p^[i]:3, ' ');
if (p^[i]>0 and (p^[i] mod 2=0) then
begin
inc(kol);
b[kol]:=p^[i];
end;
end;
writeln;
writeln(b[i]:3);
dispose(p);
readln;
end.

type
  mass = array[1..100] of integer;
 
var
  a, b: ^mass;
  i, k: integer;
 
begin
  new(a);
  new(b);
  k := 0;
  
  for i := 1 to 10 do //n если надо.но лучче чисто динамический как в первом слуе.
    a^[i] := random(10)-5;
   
   for i:=1 to 10 do
    write(a^[i],' ');
    
    writeln;
    
  for i := 1 to 10 do
  begin
    if (a^[i] mod 2 = 0) and (a^[i] > 0) then
    begin
      k += 1;
      b^[k] := a^[i];
    end;
  end;
  
  for i := 1 to k do
    write(b^[i], ' ');
  dispose(b);
  dispose(a);
end.

uses
  system;
 
begin
  var k := 10;
  for var i := 1 to 10 do
    console.writeline('Hello wordl!');
end.