Дан двумерный массив A(n ×m) . Найти количество элементов больших 5 в последнем столбце матрицы.

Uses crt;
var a: array [1..100,1..100] of integer;
    x,y,n,m,k:integer;
begin
     write(n:); readln(n);
     write(m:); readln(m);
     for x:=1 to n do
     begin
         for y:=1 to m do
         begin
         a[x,y]:=random(10);
         write(a[x,y]:3);
         end;
         writeln;
     end;
     y:=m;
     for x:=1 to n do
         if a[x,y]>5 then inc(k);
     writeln;
     writeln(Количество элементов больших 5 в последнем столбце: ,k);
end.