не пойму в чем ошибка

[Анастасия123456789]

while true do
begin

if a[d]=1 then
begin
while not eof(f) do
begin
e:=Application.ExeName+inttostr(a[i]);
assignfile(f,e);
reset(f);
readln(f,s);
memo1.Lines.Add(s);
end;
close();
//memo1.Lines.Clear;
// memo1.Lines.LoadFromFile(ExtractFil ePath(Application.ExeName)+inttostr (a[i])+'.txt');
if edit1.Text='1' then prav_otvet:=prav_otvet+1 else ne_otvet:=ne_otvet+1;
d:=d+1;
break;

end;
if a[d]=2 then
begin
while not eof(f) do
begin
e:=Application.ExeName+inttostr(a[i]);
assignfile(f,e);
reset(f);
readln(f,s);
memo1.Lines.Add(s);
end;
//memo1.Lines.Clear;
// memo1.Lines.LoadFromFile(ExtractFil ePath(Application.ExeName)+inttostr (a[i])+'.txt');
if edit1.Text='1' then prav_otvet:=prav_otvet+1 else ne_otvet:=ne_otvet+1;
d:=d+1;
break;

end;
if a[d]=3 then
begin
while not eof(f) do
begin
e:=Application.ExeName+inttostr(a[i]);
assignfile(f,e);
reset(f);
readln(f,s);
memo1.Lines.Add(s);
end;
//memo1.Lines.Clear;
//memo1.Lines.LoadFromFile(ExtractFil ePath(Application.ExeName)+inttostr (a[i])+'.txt');
if edit1.Text='1' then prav_otvet:=prav_otvet+1 else ne_otvet:=ne_otvet+1;
d:=d+1;
break;

end;
if a[d]=4 then
begin
while not eof(f) do
begin
e:=Application.ExeName+inttostr(a[i]);
assignfile(f,e);
reset(f);
readln(f,s);
memo1.Lines.Add(s);
end;
//memo1.Lines.Clear;
//memo1.Lines.LoadFromFile(ExtractFil ePath(Application.ExeName)+inttostr (a[i])+'.txt');
if edit1.Text='1' then prav_otvet:=prav_otvet+1 else ne_otvet:=ne_otvet+1;
d:=d+1;
break;

end;
говорит то что I/O error 104

[Анастасия123456789]

while not eof(f) do зацикливается на етом

[mihali4]

Странный ход:

while not eof(f) do
begin
e:=Application.ExeName+inttostr(a[i]);
assignfile(f,e);

[Stilet]

while not eof(f) do зацикливается на етом

Правильно потому что ты его потом в теле цикла заново переоткрываеш.
ДЕлай так:

e:=Application.ExeName+inttostr(a[i]);
assignfile(f,e);
reset(f);
while not eof(f) do begin
 readln(f,s);
 memo1.Lines.Add(s);
end;