Создание теста с использованием файла

uses crt;
type
  Gribo4ek=record
   v:string[113];
   nomerotveta:byte;
   otvet:string[113];
   PravOtvet:string[1];
  end;
  
var f:file of string[113];
    i:byte;
    j:byte;
    g:array[1..3] of Gribo4ek;
    
begin
assign(f,'testik.dat');
rewrite(f);
for i:=1 to 3 do
 begin
  write('Введите вопрос №',i,': ');
  readln(g[i].v);
  write(f,g[i].v);
  for j:=1 to 3 do
   begin
    write('Ответ на вопрос №',i,' ',': ');
    readln(g[i].otvet);
    write(f,g[i].otvet);
   end;
  write('Введите верный вариант ответа(1,2,3): ');
  readln(g[i].PravOtvet);
  write(f,g[i].PravOtvet);
  clrscr;
 end;
reset(f);
while not eof(f) do
begin
read(f,g[i].v);
writeln(g[i].v);
end;
readln; 
end.

uses crt;
const otv:array[1..3] of char=('А','Б','В');
type
  Gribo4ek=record
   v:string[113];
   nomerotveta:byte;
   otvet:string[113];
   PravOtvet:string[1];
  end;
var i,j,k:byte;
    f:file of string[113];
    g:array[1..3] of Gribo4ek;
    c:char;
begin
assign(f,'testik.dat');
reset(f);
k:=0;
for i:=1 to 3 do
begin
 write('Вопрос №',i,': ');
 read(f,g[i].v);
 writeln(g[i].v);
 for j:=1 to 3 do
  begin
   read(f,g[i].otvet);
   writeln(j,')',g[i].otvet);
  end;
 write('Выберите вариант ответа 1,2,3: ');
 readln(c);
 if g[i].PravOtvet=g[i].otvet then inc(k);
end;
write('Количество правильных ответов=',k);
close(f);
end.