найти ошибку в Delphi! В программе "ПДД"

[Len4i]{]

помогите пожалуйста. нужно, чтоб при нажетие на кнопку на экран выводились вопросы с картинками, которые брались бы случайным образом из текстовых файлов (""Билет1.txt и "Билет2.txt"), а рисунки к ним, например, из папки "Картинки/Билет1/1в.bmp" (1в, 2в и т.д. - это картинка к вопросам 1 и 2)

[Len4i]{]

ребят!!! кто может помочь, прошу вас помогите. нужно,чтоб до завтра уже всё работало :-(((

[Len4i]{]

вот код к программе
var f,g:TextFile; n:integer;
a: Array[1..2] Of String =('Билет1.txt','Билет2.txt');//,'3.txt');
b: Array[1..5] of string =('1в.bmp','2в.bmp','3в.bmp','4в.bm p', '5в.bmp');
s,s1,s2:string; k,i, j:byte;
procedure TAdditionalTab4.Button1Click(Sender : TObject);
begin
for i:=1 to 2 do
AdditionalTab4.Caption := a[i];
if RadioGroup1.ItemIndex=StrToInt(s) then inc(k);
if eof(f) then begin
Button1.Enabled:=false;
CloseFile(f);
AssignFile(g,'Результат.txt');
{$I-}
Append(g);
if IOResult<>0 then Rewrite(g);
{$I+}
Writeln(g,s1+' '+IntToStr(k));
CloseFile(g);
Exit;
end;

RadioGroup1.Items.Clear;
readln(f,s2);
RadioGroup1.Caption:=s2;
Readln(f,s);
RadioGroup1.Items.Add(s);
Readln(f,s);
RadioGroup1.Items.Add(s);
Readln(f,s);
if s<>'' then
RadioGroup1.Items.Add(s);
Readln(f,s);
if s<>'' then
RadioGroup1.Items.Add(s);
Readln(f,s);

for i:=1 to 2 do
for j:=1 to 5 do //s2:=copy(s2,1,pos('.',s2)-1);
Image1.Picture.LoadFromFile('Картин ки/'+copy(a[i],1,pos('.',a[i])-1)+'/'+b[j]);
end;
procedure TAdditionalTab4.FormActivate(Sender : TObject);
begin
randomize;
for i:=1 to 2 do
for j:=1 to 5 do begin //s2:=copy(s2,1,pos('.',s2)-1);
//a[i]:=random(2=('Билет1.txt', 'Билет2.txt'))'Билет2.txt'; //s2:=copy(s2,1,pos('.',s2)-1);
Image1.Picture.LoadFromFile('Картин ки/'+copy(a[i],1,pos('.',a[i])-1)+'/'+b[j]); //+s2+'в'+'.bmp');
AssignFile(f,'Вопросы/'+a[i]);
end;
reset(f);
readln(f,s);
RadioGroup1.Caption:=s;
Readln(f,s);
RadioGroup1.Items.Add(s);
Readln(f,s);
RadioGroup1.Items.Add(s);
Readln(f,s);
if s<>'' then
RadioGroup1.Items.Add(s);
Readln(f,s);
if s<>'' then
RadioGroup1.Items.Add(s);
Readln(f,s);

[Len4i]{]

извини, что слишком много ненужных коментариев, просто уже как только не пробовала

[Len4i]{]

ну кто нибудь!!! откликнетесь!!! ПОЖААААЛУЙСТА!!!