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

var
  f: Text;
 
var
  answ: string;
 
begin
  assign(f, 'quest.txt');
  reset(f);
  var s: string;
  while not eof(f) do 
  begin
    readln(f, s);
    if s[1] in ['0'..'9'] then begin
      write(s);
      readln(answ);
    end;
  end;
  close(f);
end.

uses GraphABC;
var
  f: Text;
 
var
  answ: char;
 
begin
  assign(f, 'quest.txt');
  reset(f);
  var s: string;
  var x: integer;
  while not eof(f) do 
  begin
  x:=0;
    repeat
      readln(f, s);
      textout(0,x,s);
      x+=20;
    until s[1] = 'в';
    readln(answ);
    readln(f, s);
    if answ=s[19] then 
    ClearWindow(clGreen)
    else
   ClearWindow(clRed);
      readln;
      ClearWindow;
  end;
  close(f);
  CloseWindow;
end.

uses
  GraphABC;
 
var
  f: Text;
 
var
  answ: char;
  a, col: integer;
 
begin
  assign(f, 'quest.txt');
  reset(f);
  var s: string;
  var x: integer;
  while not eof(f) do 
  begin
    x := 0;
    col := 0;
    a := random(3, 4);
    repeat
      readln(f, s);
      textout(0, x, s);
      x += 20;
      inc(col);
    until col = a;
    if(s [1] <> 'в') Then
      repeat
        readln(f, s);
      until s[1] = 'в';
    
    readln(answ);
    readln(f, s);
    if answ = s[19] then 
      ClearWindow(clGreen)
    else
      ClearWindow(clRed);
    readln;
    ClearWindow;
  end;
  close(f);
  CloseWindow;
end.

uses
  GraphABC, ABCbuttons;
 
var
  but: ButtonABC;
 
procedure sozd;
var
  f: text;
  s: string;
begin
  s := ('1 2 3 4 5 6 7');
  assign(f, 'name.txt');
  rewrite(f);
  Write(f, s);
  close(f);
  TextOut(34, 33, 'Файл успешно создан!');
end;
 
begin
  but := new buttonABC(0, 359, 200, 50, 'Создать файл', ClWhite); //Рисуем кнопку в нужном месте.
  but.OnClick := sozd;//Переходим в процедуру для создания файла.
end.

procedure MyClose(key: integer); // key - код нажатой клавиши
begin
  if key=vk_ESCAPE then Window.Close;  
  // если нажата клавиша ESC (vk_ESCAPE - константа, соответствующая этому коду), то окно закрываем
end;

  OnKeyDown := MyClose; // отлавливается событие onKeyDown

uses
  GraphABC, ABCbuttons;
 
var
  f: Text;
 
var
  s: string;
 
var
  x: integer;
  answ: char;
  b, b2, b3: ButtonABC;
 
procedure otv; forward;
 
procedure otv2; forward;
 
procedure otv3; forward;
 
procedure files;
begin
  sleep(1000);
  clearwindow;
  x := 0;
  repeat
    readln(f, s);
    textout(0, x, s);
    x += 20;
    if s[1] = 'к' Then
      closewindow;
  until 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;
  
end;
 
procedure otv;
begin
  answ := 'а';
  readln(f, s);
  if answ = s[19] then 
    TextOUT(100, 100, 'Правильно!')
  else
    TextOUT(100, 100, 'Не правильно!');
  b.Destroy;
  b2.Destroy;
  b3.Destroy;
  files;
end;
 
procedure otv2;
begin
  answ := 'б';
  readln(f, s);
  if answ = s[19] then 
    TextOUT(100, 100, 'Правильно!')
  else
    TextOUT(100, 100, 'Не правильно!');
  b.Destroy;
  b2.Destroy;
  b3.Destroy;
  files;
end;
 
procedure otv3;
begin
  answ := 'в';
  readln(f, s);
  if answ = s[19] then 
    TextOUT(100, 100, 'Правильно!')
  else
    TextOUT(100, 100, 'Не правильно!');
  b.Destroy;
  b2.Destroy;
  b3.Destroy;
  files;
end;
 
begin
  assign(f, 'quest.txt');
  reset(f);
  files;
  
end.