Программа "Тест" с возможностью редактировать вопросы

uses graphABC;
 
type
  TStringArray = array [1..100] of array [1..5] of string;
  StringArray = array [1..100] of string;
  boolarray = array [1..100] of boolean;
 
function kolq: integer;
var
  f: text;
begin
  assign(f, 'kol.txt');
  reset(f);
  readln(f, result);
  close(f);
end;
 
function answer(yu: StringArray; kol: integer): boolarray;
var
  i: integer;
  t: text;
  r: array [1..100] of string ;
begin
  assign(t, 'answer.txt');
  reset(t);
  for i := 1 to kol do readln(t, r[i]);
  close(t);
  for i := 1 to kol do if r[i] = yu[i] then result[i] := true else result[i] := false;
end;
 
function question(kol: integer): TStringArray;
var
  i, i2: integer;
  t: text;
begin
  assign(t, 'testnet.txt');
  reset(t);
  for i := 1 to kol do 
  begin
    for i2 := 1 to 5 do readln(t, result[i][i2]);
  end;
  close(t);
end;
 
var
  a: StringArray;
  
  i, i2: integer;
  q: TStringArray;
  ans: array [1..100]of string;
  u: boolarray;
  kol: integer;
 
begin
  kol := kolq;
  q := question(kol);
  setwindowsize(1100, round(1100 / 16 * 9)); // установление размеров окна
  setwindowcaption('тест таблицы умножения v1.1');
  setfontsize(19);
  for i2 := 1 to kol do 
  begin
    for i := 1 to 5 do textout(0, i * 29 - 29, q[i2][i]);
    readln(a[i2]);
    clearwindow;
  end;
  u := answer(a, kol);
  for i := 1 to kol do 
  begin
    if u[i] = true then textout(0, i * 29 - 29, i + 'вопрос - правильно') else textout(0, i * 29 - 29, i + 'вопрос - неправильно');
  end;
  readln();
  Closewindow;
end.