Вывести положительные элементы массива Х(к). затем отрицать элементы массива У(м) и количество выведенных чисел — Pascal(Паскаль)

uses crt;

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

begin
  clrscr;
  writeln('Введите размер массива x(k)');
  readln(k);
  writeln('Введите размер массива y(m)');
  readln(m);
  writeln('Введите элементы массива x(k)');
  FOR i := 1 TO k do
  begin
    readln(x[i]);
  end;
  writeln('Введите элементы массива y(m)');
  FOR i := 1 TO m do
  begin
    readln(y[i]);
  end;
  writeln('Положительные элементы массива x(k)');
  FOR i := 1 TO k do
  begin
    IF x[i] > 0 THEN
    begin
      writeln(x[i]);
      num := num + 1;
    end;
  end;
  writeln('Отрицательные элементы массива y(m)');
  FOR i := 1 TO m do
  begin
    IF y[i] < 0 THEN
    begin
      writeln(y[i]);
      num := num + 1;
    end;
  end;
  writeln('Количество выведенных элементов ', num);

end.