Проверка знаний таблицы умножения

var
  n, x: byte;
  k: integer;
 
BEGIN
  
  writeln('Сколько задать примеров? ');
  readln(k);
  
  n := 0;
  x := 0;
  repeat
    var a := random(1, 9);
    var b := random(1, 9); 
    writeln(a, ' X ', b, ' = ');
    read(x);
    if x = a * b
    then begin
      writeln('Верно. Оценка - 5');
      dec(k);
    end
    else begin      
      for var i: byte := 1 to 4 do
      begin
        n := i;
        writeln('Неверно. ',i, '-я попытка. ', a, ' X ', b, ' = ');
        read(x);
        if i = 4
        then begin
          writeln('Попыток больше нет. Правильный ответ: ', a * b, '. Стыдно не знать таблицу умножения =)'); 
          dec(k);
        end;
        if x = a * b
          then break;
      end;
      case n of
        1: begin writeln('Теперь верно. Оценка - 4'); dec(k) end;
        2: begin writeln('Теперь верно. Оценка - 3'); dec(k) end;
        3: begin writeln('Теперь верно, но оценка - 2'); dec(k) end;
        4: begin writeln('Оценка - 2'); dec(k) end;
      end;
    end;        
  until k = 0;
  
  writeln('Тестирование окончено');
  
///***Автор программы: Пертенава Александр***\\\  
  
END.