Ошибка: Попытка вызвать процедуру как функцию(PascalABC)

[AndrewAlexandrov]

Писал программу в PascalABC и затем вылезала Ошибка: Попытка вызвать процедуру как функцию
Подскажите пожалуйста что не так.

Вот программа

program PR;

var
  n, x, y, k, n1: Integer;

label c1, c2, c3, Kon;
begin
  cls;
  Kon:
  Write('номер задания(1-3,0-конец программы)- ');
  Read(n);
  case n of
    1:
      begin
        c1:
        Write('x=');
        ReadLn(x);
        Write('y=');
        ReadLn(y);
        if (x >= -4) and (x <= 4) and ((y > 0) and (y <= -x + 4) or (y < x + 4))
          Then writeln('точка принадлежит закрашенной области')
        else write('точка не принадлежит закрашенной области');
        Write('Повторить? (да-1, нет-0)'); Read(K);
        cls;
        if K = 1 then goto c1 else goto Kon;
      end;
    3: 
  Begin
        c3:
        Write('Введите номер недели:');
        ReadLn(n1);
        CASE n1 of
           1: writeln('Понедельник: 3 пары');
           2: writeln('Вторник: 3 пары');
           3: writeln('Среда: 3 пары');
           4: writeln('Четверг: 3 пары');
           5: writeln('Пятница: 3 пары');
           6: writeln('Суббота: 3 пары'); 
       Write('Повторить? (да-1, нет-0)'); Read(K);
        cls;
        if K = 1 then goto c3 else goto Kon;
 end;
  End;
  
 End;
 End.

Ошибку выдает вот в это строке где про дни недели.

Write('Повторить? (да-1, нет-0)'); Read(K);

Если сможете исправьте ошибку пожалуйста.
Заранее благодарен

[grominfo]

После case .. of нужно ставить end;

 CASE n1 of
           1: writeln('Понедельник: 3 пары');
           2: writeln('Вторник: 3 пары');
           3: writeln('Среда: 3 пары');
           4: writeln('Четверг: 3 пары');
           5: writeln('Пятница: 3 пары');
           6: writeln('Суббота: 3 пары'); 
end;

[AndrewAlexandrov]

спасибо большое