uses crt;
var f:file of integer;
a,k,n:integer;
begin
clrscr;
assign(f,'file');
rewrite(f);
writeln('Введите в файл целые неотрицательные числа, окончание ввода 0:');
repeat
readln(a);
write(f,a);
until a=0;
writeln('Содержание исходного файла:');
reset(f);
n:=filesize(f);
while not eof(f) do
begin
read(f,a);
write(a,' ');
end;
close(f);
writeln;
write('Введите номер числа в файле k=');
readln(k);
if k>n then write('Элемент отсутствует')
else
begin
reset(f);
seek(f,k-1);
read(f,a);
write('Элемент номер ',k,'=',a);
close(f);
end;
readln
end.