Организовать ввод чисел меньше 1000 подсчитать посреди введённых чисел количество чисел

Const nx =0;var s,i,j,z,n:integer;A,B:array[1..nx] of integer;begin  writeln('Ввести конец промежутка n');  n:= ReadInteger();      for i:=1 to n do begin      write(i:3);      if i mod 4 = 0 then  begin z := z +1;A[i]:=i;end;      if i mod 3 = 0 then begin s := s +1;B[i]:=i;end;    end;    writeln;    writeln('Кратных 4 ',z,A);write('Кратных 3 ',s,B);end.