Составить программу обучения устному счету

uses crt;
var
a,b,yes,no : integer;  {yes -правильные ответы, no - неправильные ответы}
rez,us,proc : real; {proc - процент правильных ответов}
oper,k,u: byte; {k-сколько раз будет выполняться вычисления }
c : char;
begin
clrscr;
randomize;
writeln('Игра "Устный счёт" началась');
repeat
yes:=0;
no:=0;
writeln('Введите уровень сложности от 1 до 7');
read(u);
u:=9-u;
writeln('Сколько раз желаете считать?');
read(k);
repeat
clrscr;
k:=k-1;
a := random(10)+1;
b := random(10)+1;
oper := random(3)+1;
write(a,' ');
if random(u)=1 then oper := oper+1;
case oper of
 1 : begin
     rez := a+b;
     write('+ ');
     end;
 2 : begin
     rez := a-b;
     write('- ');
     end;
 3 : begin
     rez := a*b;
     write('* ');
     end;
 4 : begin
     rez := a/b;
     write('/ ');
     end;
 end; {case}
write(b);
writeln;
write('результат= ');
readln(us);
if rez=us then
 begin
 writeln('ответ верный!');
 yes:=yes+1;
 end
else
 begin
 write('ответ неверный.правильный ответ: ');
 no:=no+1;
 if oper <> 4 then writeln(rez:0:0)
 else writeln(rez:0:3);
 end;
Delay(800);
until k=0;
proc:=yes*100/(no+yes);
writeln('Ваш процент правильных ответов = ',proc:0:2,'%');
writeln;
writeln('Игра окончена');
writeln;
writeln('продолжить? Y/N');
repeat
readln(c);
if c='n' then break else
if c='y' then break else writeln('вводите только Y или N');
until c='y';
until c='n';
end.