uses crt;
var f:text;
n,i,a,b:integer;
begin
clrscr;
assign(f,'chisla.txt');{связываем переменную с файлом}
rewrite(f);{открываем для записи}
write('Сколько значений ввести в файл? n=');
readln(n);
writeln('Введите в файл ',n, 'целых чисел:');
for i:=1 to n do
begin
readln(a);
write(f,' ',a);{вводим числа в файл с пробелом впереди, если написать
write(f,a,' ');то при считывании будет лишний ноль}
end;
clrscr;
write('Введите число для поиска в файле b=');
readln(b);
writeln('Содержание файла:');
reset(f);{открываем для чтения}
i:=0;
while not eof(f) do{пока не конец файла}
begin
read(f,a);{читаем числа}
if a=b then i:=1;
write(a,' ');
end;
writeln;
close(f);{закрываем файл}
if i=1 then write('Число ',b,' есть в файле')
else write('Числа ',b,' нет в файле');
readln
end.