Найти общее количество нулевых элементов в массивах Х(м) У(к) — Pascal(Паскаль)

uses crt;

var
  i, m, k, num, numm, nn: integer;
  x: array [1 .. 10000] of integer;
  y: array [1 .. 10000] of integer;

begin;
  clrscr;
  writeln('Введите размер массива x(m)');
  readln(m);
  writeln('Введите размер массива y(k)');
  readln(k);
  writeln('Введите элементы массива x(m)');
  FOR i := 1 TO m do
  begin
    readln(x[i]);
  end;
  writeln('Введите элементы массива y(k)');
  FOR i := 1 TO k do
  begin
    readln(y[i]);
  end;
  FOR i := 1 TO m do
  begin
    IF x[i] = 0 THEN
      num := num + 1;
  end;
  FOR i := 1 TO k do
  begin
    IF y[i] = 0 THEN
      numm := numm + 1;
  end;
  if num > numm then
    nn := numm
  else
    nn := num;
  writeln('Общее количество нулевых элементов в двух массиваx ', nn);

end.