Помогите решить паскаль

 uses crt; 

var j, k, l, m, n: integer; 

a: array of array of integer; 

begin

  textbackground(white);

  clrscr(); 

  textcolor(magenta); 

  randomize(); 

  write('n: '); 

  readln(n); 

  writeln(); 

  setlength(a, n, n); 

  n := n - 1; 

  for l := 0 to n do  

  begin 

    for m := 0 to n do 

    begin

      a[l,m] := random(199) - 99; 

      if l = m then textcolor(blue) 

      else textcolor(magenta); 

      write(a[l,m]: 4) 

    end; 

    writeln() 

  end; 

  k := 0; 

  for l := 0 to n do 

  for m := 0 to l do 

  if a[l,m] mod 2 = 0 then k := k + 1; 

  textcolor(green); 

  writeln(); 

  writeln(k, ' even elements') 

end.