Задание по информатике

Если я правильно понял задание, то вводится значение n (конечное значение), а числа начинаются с единицы и идут до тех пор, пока не достигнут значения n. Если неправильно понял - то прошу объяснить (исправлю в комментариях), а пока что вот программа:

Program P1;
uses crt;
var ch, i, k, n: integer;
begin
clrscr;
write ('Введите количество положительных целых чисел n: n=');
readln (n);
if n<0 then write ('Ошибка: количество чисел не может быть отрицательным. Программа завершена.') else begin
ch:=1;
k:=0;
for i:=1 to n do begin
ch:=ch+1;
if (ch>99) and (ch<1000) then k:=k+1;
end;
write ('Количество 3-значных чисел среди них составляет: ', k);
end;
readkey;
end.

{PascalABC}
program dz;
uses system;
const n=10;
var a:array [1..n] of integer;
i,k:integer;
label 1;
begin
1: write('wwedite n > 0 chislo!');
writeln;
for i:=1 to n do begin
write('a[',i,']='); read (a[i]);
if a[i] < 0 then goto 1; end;
cls; k:=0;
for i:=1 to n do begin
write('':2,a[i]); end;
writeln;write('iz nih 3-x znachny chisel !');
for i:=1 to n do begin
if (a[i]>99) and (a[i]<1000) then k:=k+1;
if (a[i]>99) and (a[i]<1000) then write('':2,a[i]);
end; writeln;
writeln('kol 3-x znachny chisel =',k);
end.

begin
var a := ReadArrInteger(ReadInteger('N:'));
Println('Результат:', a.Count(x -> (x.IsEven) and (x in 100..999)));
end.

почитай