Весь код скинуть не смогу уже удалил эту часть в тексте программы. Напишу часть образца:
Код:
type
student=record;
vopros:string[200];
otvet1:string[30];
otvet2:string[30];
otvet3:string[30];
otvet4:string[30];
otvet:integer;
end;
var
t:student;
i,k:integer;
f:file of student;
begin
AssignFile(f,'sport');
Reset(f);
Seek(f,i);
readln(f,t);
s:=t.vopros;
Label1.Caption:=s;
s:=t.otvet1;
RadioButton1.Caption:=s;
s:=t.otvet2;
RadioButton2.Caption:=s;
s:=t.otvet3;
RadioButton3.Caption:=s;
s:=t.otvet4;
RadioButton4.Caption:=s;
i:=i+1;
CloseFile(f);
end;
что то на подобие такого...