Встречено 'end', а ожидалось ';'

program qq;
var x, y, k, i: integer;
begin
repeat
X:= random(10)+1;
y:= random(10)+1;
i:=0;
Writeln ('1.Сколько будет ' ,x, '*' ,y );
readln (k);
if k= x*y then 
begin
writeln ('Да, молодец!');
i:=i+1
end
else
begin writeln ('Нет,учи таблицу!!!'); i:=i+0;
end;
Writeln ('2.Сколько будет ' ,x, '*' ,y );
readln (k); 
if k= x*y then
begin
writeln ('Да, молодец!'); i:=i+1;end
else 
begin
writeln ('Нет,учи таблицу!!!'); i:=i+0; end;
Writeln ('3.Сколько будет ' ,x, '*' ,y );
readln (k);
if k= x*y then
begin
writeln ('Да, молодец!'); i:=i+1; end
else 
begin writeln ('Нет,учи таблицу!!!'); i:=i+0; end;
Writeln ('4.Сколько будет ' ,x, '*' ,y );
readln (k);
if k= x*y then
begin
writeln ('Да, молодец!'); i:=i+1; end
else 
begin
writeln ('Нет,учи таблицу!!!'); i:=i+0; end;
Writeln ('5.Сколько будет ' ,x, '*' ,y );
readln (k);
if k= x*y then
begin
writeln ('Да, молодец!');i:=i+1; end
else 
begin
writeln ('Нет,учи таблицу!!!'); i:=i+0; end;
writeln (' Кол-во правильных ответов:',i);
writeln (' Кол-во неправильных ответов:',5-i);
case i of 
1..2:writln ('Оценка:2');
3: writeln ('Оценка:3');
4: writeln ('Оценка:4');
5: writeln ('Оценка:5');
readln:
end;
end.

var x, y, k, i: integer;
begin
  repeat
    X:= random(10)+1;
    y:= random(10)+1;
    i:=0;
    Writeln ('1.Сколько будет ' ,x, '*' ,y );
    readln (k);
    if k= x*y then 
      begin
        writeln ('Да, молодец!');
        i:=i+1
      end
    else
      begin
        writeln ('Нет,учи таблицу!!!');
        i:=i+0;
      end;
    Writeln ('2.Сколько будет ' ,x, '*' ,y );
    readln (k); 
    if k= x*y then
      begin
        writeln ('Да, молодец!');
        i:=i+1;
      end
    else 
      begin
        writeln ('Нет,учи таблицу!!!');
        i:=i+0;
      end;
    Writeln ('3.Сколько будет ' ,x, '*' ,y );
    readln (k);
    if k= x*y then
      begin
        writeln ('Да, молодец!');
        i:=i+1;
      end
    else 
      begin
          writeln ('Нет,учи таблицу!!!');
          i:=i+0;
      end;
    Writeln ('4.Сколько будет ' ,x, '*' ,y );
    readln (k);
    if k= x*y then
      begin
        writeln ('Да, молодец!');
        i:=i+1;
      end
    else 
      begin
        writeln ('Нет,учи таблицу!!!');
        i:=i+0;
      end;
    Writeln ('5.Сколько будет ' ,x, '*' ,y );
    readln (k);
    if k= x*y then
      begin
        writeln ('Да, молодец!');
        i:=i+1;
      end
    else 
      begin
        writeln ('Нет,учи таблицу!!!');
        i:=i+0;
      end;
    writeln (' Кол-во правильных ответов:',i);
    writeln (' Кол-во неправильных ответов:',5-i);
    case i of 
      1..2:writln ('Оценка:2');
      3: writeln ('Оценка:3');
      4: writeln ('Оценка:4');
      5: writeln ('Оценка:5');
    //readln:
    end;
  until ???
end.

begin
  var ПоНовой : Boolean;
  repeat
    var ПравильныхОтветов := 0;
    for var НомерВопроса := 1 to 5 do
      begin
        var x := Random(1,10);
        var y := Random(1,10);
        var Ответ := ReadLnInteger('Задание ' + НомерВопроса + '.  Сколько будет  ' + x + ' x ' + y + ' =');
        if Ответ = x*y then ПравильныхОтветов += 1 else WriteLn('Неправильно!  ' + x + ' x ' + y + ' = ' + (x*y));
      end;
    WriteLn('Кол-во правильных ответов ' + ПравильныхОтветов + ' из 5.');
    WriteLn('Ваша оценка ' + (ПравильныхОтветов>2?ПравильныхОтветов:2) + '.');
    WriteLn('~'*50);
    ПоНовой := ReadLnString('Желаете повторить? (1 = да / иначе - нет) :').Trim = '1';
  until Not  ПоНовой;
end.