Исправить ошибку в программе - Turbo Pascal (30058)

program test;
 
uses
  crt;
 
var
  ans, k: integer;
 
begin
 
  k := 0;
  writeln('Тест  ');
  writeln('Вопрос № 1');
  writeln('');
  writeln('1)');
  writeln('2)');
  writeln('3)');
  writeln('4)');
  readln(ans);
  if (ans = 1) then
    writeln('Верно');
    begin
  inc(k)
  end;
  if(ans > 1) or (ans < 1) then
    writeln('Неверно,правильный ответ:1');
  writeln('Вопрос № 2');
  writeln('');
  writeln('1)');
  writeln('2)');
  writeln('3)');
  writeln('4)');
  readln(ans);
  if (ans = 4) then
    writeln('Верно');
    begin
  inc(k);
  end;
  if(ans > 4) or (ans < 4) then
    writeln('Неверно,правильный ответ:4');
  writeln('Вопрос № 3');
  writeln('');
  writeln('1)');
  writeln('2)');
  writeln('3)');
  writeln('4)');
  readln(ans);
  if (ans = 3) then
    writeln('Верно');
  inc(k);
  if(ans > 3) or (ans < 3) then
    writeln('Неверно,правильный ответ:3');
  writeln('Вопрос № 4');
  writeln('');
  writeln('1)');
  writeln('2)');
  writeln('3)');
  writeln('4)');
  readln(ans);
  if (ans = 4) then
    writeln('Верно');
  inc(k);
  if(ans > 4) or (ans < 4) then
    writeln('Неверно,правильный ответ:4');
  writeln('Вопрос № 5');
  writeln('');
  writeln('1)');
  writeln('2)');
  writeln('3)');
  writeln('4)');
  readln(ans);
  if (ans = 4) then
    writeln('Верно');
  inc(k);
  if(ans > 4) or (ans < 4) then
    writeln('Неверно,правильный ответ:4');
  writeln('Вопрос № 6');
  writeln('');
  writeln('1)');
  writeln('2)');
  writeln('3)');
  writeln('4)');
  readln(ans);
  if (ans = 3) then
    writeln('Верно');
  inc(k);
  if(ans > 3) or (ans < 3) then
    writeln('Неверно,правильный ответ:3');
  writeln('Вопрос № 7');
  writeln('');
  writeln('1)');
  writeln('2)');
  writeln('3)');
  writeln('4)');
  readln(ans);
  if (ans = 2) then
    writeln('Верно');
  inc(k);
  if(ans > 2) or (ans < 2) then
    writeln('Неверно,правильный ответ:2');
  writeln('Вопрос № 8');
  writeln('');
  writeln('1)');
  writeln('2)');
  writeln('3)');
  writeln('4)');
  readln(ans);
  if (ans = 1) then
    writeln('Верно');
  inc(k);
  if(ans > 1) or (ans < 1) then
    writeln('Неверно,правильный ответ:1');
  writeln('Вопрос № 9');
  writeln('');
  writeln('1)');
  writeln('2)');
  writeln('3)');
  writeln('4)');
  readln(ans);
  if (ans = 2) then
    writeln('Верно');
  inc(k);
  if(ans > 2) or (ans < 2) then
    writeln('Неверно,правильный ответ:2');
  writeln('Вопрос № 10');
  writeln('');
  writeln('1)');
  writeln('2)');
  writeln('3)');
  writeln('4)');
  readln(ans);
  if (ans = 3) then
  inc(k); 
  if(ans > 3) or (ans < 3) then
    writeln('Неверно,правильный ответ:1');
  begin
  writeln('gh jnd', k);
    if (k <= 10) and (k > 8) then
      writeln('Оценка 5');
    if (k < 9) and (k > 5) then
      writeln('Оценка 4');
    if (k < 6) and (k > 2) then
      writeln('Оценка 3');
    if (k < 3) and (k >= 0) then
      writeln('Оценка 2');
  end
end.