Составить программу, которая будет считывать задания с файла

uses
  GraphABC, ABCbuttons;
 
var
  f: Text;
 
var
  s, s2: string;
 
var
  x, otvety: integer;
  answ: char;
  b, b2, b3: ButtonABC;
 
procedure otv; forward;
 
procedure otv2; forward;
 
procedure otv3; forward;
 
procedure vivod;
begin
  clearwindow;
  s2 := inttostr(otvety);
  textout(0, 0, 'Количество правильных ответов:');
  textout(335, 0, s2);
end;
 
procedure files;
begin
  sleep(1000);
  clearwindow;
  x := 0;
  repeat
    if s[1] <> 'к' Then
    begin
      readln(f, s);
      textout(0, x, s);
      x += 20;
      if s[1] = 'к' Then
      begin
        vivod;
      end;
    end;
  until ((s[1] = 'в') or (s[1] = 'к'));
  
  
  b := new buttonABC(0, x + 60, 20, 50, 'A', ClWhite);
  b2 := new buttonABC(30, x + 60, 20, 50, 'Б', ClWhite);
  b3 := new buttonABC(60, x + 60, 20, 50, 'В', ClWhite);
  b.OnClick := otv;
  b2.OnClick := otv2;
  b3.OnClick := otv3;
  if s[1] = 'к' then
  begin
    b.Destroy;
    b2.Destroy;
    b3.Destroy;
    b := new buttonABC(0, x + 60, 100, 70, 'EXIT', ClWhite);
    b.OnClick := closewindow;
  end;
  
end;
 
procedure otv;
begin
  answ := 'а';
  readln(f, s);
  if answ = s[19] then 
  begin
    inc(otvety);
    TextOUT(100, 100, 'Правильно!');
  end
  else
    TextOUT(100, 100, 'Не правильно!');
  b.Destroy;
  b2.Destroy;
  b3.Destroy;
  files;
end;
 
procedure otv2;
begin
  answ := 'б';
  readln(f, s);
  if answ = s[19] then 
  begin
    inc(otvety);
    TextOUT(100, 100, 'Правильно!');
  end
  else
    TextOUT(100, 100, 'Не правильно!');
  b.Destroy;
  b2.Destroy;
  b3.Destroy;
  files;
end;
 
procedure otv3;
begin
  answ := 'в';
  readln(f, s);
  if answ = s[19] then 
  begin
    inc(otvety);
    TextOUT(100, 100, 'Правильно!');
  end
  else
    TextOUT(100, 100, 'Не правильно!');
  b.Destroy;
  b2.Destroy;
  b3.Destroy;
  files;
end;
 
begin
  s := ' ';
  assign(f, 'quest.txt');
  reset(f);
  files;
  
end.

procedure files;
begin
  sleep(1000);
  clearwindow;

setfontstyle(fsbold);
  setfontsize(12);

but := new buttonABC(X, Y, H, W, S, C);

FillWindow('cartinka.jpg');

  s2 := inttostr(otvety);
  procenty := otvety div s * 100;