Создать массив из четных чисел последовательности

uses crt;
var a,b: array [1..100] of integer;
    i,j,n: integer;
begin
write('n=');
readln(n);
writeln('Исходный массив');
for i:=1 to n do
    begin
    a[i]:=random(19)-9;
    write(a[i]:4);
    if (abs(a[i])) mod 2=0 then
       begin
       inc(j);
       b[j]:=a[i];
       end;
    end;
writeln;
if j=0 then writeln('В массиве нет четных элементов') else
   begin
   writeln('Массив четных элементов');
   for i:=1 to j do
       write(b[i]:4);
   end;
end.

Uses crt;
 
var a:array [1..50] of integer;
i,sum,n:integer;
 
begin
   Write('Размер массива: ');readln(n);
   For i:=1 to n do
      begin
      Write('a[',i,'] = ');readln(a[i]);
      end;
   Write('Массив: ');
   For i:=1 to n do
   begin
   write(a[i],' ');
   if a[i]=i then sum:=sum+a[i];
   end;
   Writeln;
   Writeln('Сумма = ',sum);
end.

Uses crt;
 
var a:array [1..50] of integer;
i,n:integer;
 
begin
   Write('Размер массива: ');readln(n);
   For i:=1 to n do
      begin
      Write('a[',i,'] = ');readln(a[i]);
      end;
   Write('Массив: ');
   For i:=1 to n do
   write(a[i],' ');
   Writeln;
   Write('Новый массив: ');
   For i:=1 to n do
   If a[i]<>0 then write(a[i],' ');
end.