Дан двумерный массив…

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.