Сколько раз в матрице встречается заданное число

const m = 10;
      n = 5;
var
    arr: array[1..n,1..m] of integer;
    x: integer;
    i,j,k: byte;
 
begin
    randomize;
    writeln('Random matrix:');
    for i:=1 to n do begin
        for j:=1 to m do begin
            arr[i,j] := -10 + random(21); // -10..10
            write(arr[i,j]:4)
        end;
        writeln
    end;
    write('Investigated the number: ');
    readln(x);
 
    k := 0;
    for i:=1 to n do
        for j:=1 to m do
            if arr[i,j] = x then
                k := k + 1;
    writeln('The number is found in the array ', k, ' times');
 
readln;
end.