Паскаль. Файлы

[Dmitrij]

Написал прогу по заданию
Описать функцию getInt(Name,k) целого типа, возвращающую k-й элемент файла целых чисел с именем Name (элементы нумеруются от 0). Если файл не существует или не содержит k-го элемента, то функция возвращает 0. С помощью этой функции вывести пять элементов данного файла с указанными номерами.
var
f:text;
k, d:byte;
s, filename:string;
function getInt (filename:string;k:byte):integer;
var f:text;
begin
assign (f, filename);
{$I-}
reset (f);
{$I+}
if IOresult<>0 then
begin
writeln ('FauJIa ',filename,' HeT!');
readln;
getInt:=0;
exit;
end;
if IOresult=0 then
begin
while not eof (f) do
begin
readln (f, s);
repeat
writeln ('BBeguTe k');
readln (k);
inc(d);
writeln ('eJIeMeHT c HoMepoM ',k,' = ',s[k+1]);
if k+1 > length (s) then
writeln ('0');
until (d=5);
end;
end;
end;
BEGIN
writeln ('BBeguTe uM9 FauJIa');
readln (filename);
getInt (filename, k);
END.
помогите решить проблемы во-первых она почему то зацикливается, а во-вторых подскажите как сделать чтобы при вводе имени файла не вводить расширение txt а тока имя файла спасибо!

[Костя КС]

1) чтобы не вводить '.txt' можно поменять строку
getInt (filename, k)
на
getInt (filename + '.txt', k)

2) зацикливается из-за лишнего begin

 begin
writeln ('FauJIa ',filename,' HeT!');
readln;
getInt:=0;
exit;
end;
if IOresult=0 then
begin
while not eof (f) do
begin
readln (f, s);
repeat
writeln ('BBeguTe k');
readln (k);
inc(d);
writeln ('eJIeMeHT c HoMepoM ',k,' = ',s[k+1]);
if k+1 > length (s) then
writeln ('0');
until (d=5);
end;
end;
end;

Если убрать выделенное красным, то должно работать нормально