Дано число k и файл, содержащий ненулевые целые числа. Вывести элемент файла с номером k. Если такой элемент отсутствует, то вывести 0 — Pascal(Паскаль)

uses crt;
var f:text;
    k,i,a:integer;
    name:string;
begin
clrscr;
write('Имя файла для чтения: ');
readln(name);
name:=name+'.txt';
assign(f,name);
{$I-} reset(f);  {$I+}
if IOResult <> 0 then
 begin
  writeLn('Не могу открыть файл ',name);
  writeLn('Работа программы завершена. Нажмите ENTER');
  readln;
  exit;
 end;
write('Введите номер нужного числа k=');
readln(k);
i:=0;
while not eof(f) and (i<k) do
 begin
  read(f,a);
  i:=i+1;
 end;
if eof(f)and(i<k)then write('0')
else write(a);
readln
end.