Даны матрицы X={Xy}4×5 и Y={Yij}4×5. Вычислить количество случаев, для которых верно неравенство Xij<=Yij - Pascal(Паскаль)

var X: array[1..4,1..5] of Integer;
    Y: array[1..4,1..5] of Integer;
    i,j: Byte;
    slychai: Byte;
begin
Randomize;
slychai :=0;
for i := 1 to 4 do
  begin
    for j := 1 to 5 do
      begin
        X[i,j]:= Random(10)-10;
        write(X[i,j]:4);
      end;
    Writeln;
  end;
Writeln;
for i := 1 to 4 do
  begin
    for j := 1 to 5 do
      begin
        Y[i,j]:= Random(10)-10;
        if X[i,j]<=Y[i,j] then Inc(slychai);
        write(Y[i,j]:4);
      end;
    Writeln;
  end;
Writeln;
Writeln(slychai);
Readln;
End.