Нужен код Free Pascal(тем старым паскалем которыми деды пользовались потому что на новом нам запрещают)

// Привет дедам

const M = 5;

const N = 12;

var matrix: array [1..M, 1..n] of integer;

var i, j, count: integer;

begin

   for i := 1 to M do

   begin

       for j := 1 to N do

       begin

           matrix[i, j] := random(-98, 54);

           write(matrix[i, j]:4);

       end;

       writeln();

   end;

   writeln();

   writeln('Кол-во четных элементов: ');

   for j := 1 to N do

   begin

       count := 0;

       for i := 1 to M do

       begin

           if matrix[i, j] mod 2 = 0 then

               inc(count);

       end;

       write(count:4);

   end;

end.