Пожалуйста посчитайте сделать это в ПАСКАЛЬ АБС

programHelloWorld;

var n:array[1..10] of integer;

var c,d:integer;

var j,i:SmallInt;

begin

 //for i:=1 to 10 do

 c:=0;

 while c<10 do

 begin

     d:=random(1000);

     if d mod 2 = 0 then

     begin

        c:= c+1;

        n[c] := d;

      end

 end;

 //сортировка

for i := 1to 9 do

  for j := 1 to 9 do

    if n[j] > n[j + 1] then begin

      c := n[j];

      n[j] := n[j + 1];

      n[j + 1] := c;

    end;

for i:=1 to10 do

  writeln(n[i])

end.