Напишите пожалуйста код в PascalABC по этой задаче. Плиз

 uses crt; 
var k, l, m, n: integer; 
A, B: array of integer; 
begin 
  textbackground(lightcyan); 
  textcolor(red); 
  clrscr(); 
  k := 0; 
  l := 0; 
  write('n: '); 
  readln(n); 
  randomize(); 
  setlength(A, n); 
  writeln('Исходный массив:'); 
  for m := 0 to n-1 do 
    begin 
      A[m] := random(41) - 20; 
      if (A[m] mod 2 = 0) then 
        begin 
          inc(l); 
          setlength(B, l); 
          B[l-1] := A[m] 
        end; 
      write(A[m]: 4); 
      inc(k); 
      if k = 10 then 
        begin 
          k := 0; 
          writeln() 
        end 
    end; 
  if k > 0 then 
    begin 
      k := 0; 
      writeln() 
    end; 
  writeln('Массив чётных чисел исходного массива:'); 
  for m := 0 to l-1 do 
    begin 
      write(B[m]: 4); 
      inc(k); 
      if k = 10 then 
        begin 
          k := 0; 
          writeln() 
        end 
    end; 
  if k > 0 then writeln() 
end.