uses crt;
var f,g:text; a,b,i,n:integer;
begin

write ('Введите количество чисел ');
readln (n);
assign(f,'chisla.txt');
rewrite(f);
for i:=1 to n do  begin
b:=random(30)+5;
writeln(f,b);
end;
close (f);

assign(f,'chisla.txt');
assign(g,'chisla-3.txt');
reset(f);
rewrite(g);
while not eof(f) do begin
readln(f,a);
if a mod 3 =0 then writeln(g,a);
end;
close (f);
close (g);

Числа считываются из файла chisla.txt, и числа кратные трем записываются в файл chisla-3.txt

while not eof(f) do - выполнение цикла while продолжается до тех пор пока не считаны все значения из файла chisla.txt