Label и goto - найти ошибку в коде

program test;
uses graphabc;
label 1;
var <Переменные>
   procedure actions;
   begin
<Тело>
   case k of 
1 : <Действия>;
0 : goto 1; 
end; end;
    procedure actions2;
   begin
<Тело>
   case x of 
1 : <Действия>;
0 : goto 1;
end; end;
    procedure answer;
begin
 readln(y);
case y of 
    1 : <Действия>;
    2 : <Действия>;
end; end;

program textgame;
uses graphabc;
label next1;
var
  f:integer;
  procedure l1(f:integer);
  begin
    writeln;
    writeln('Аноним: Привет, пожалуйства ответь мне, это очень срочно!!!');
    writeln('1 Что случилось?');
    writeln('2 Мама говорила, что незнакомым людям отвечать нельзя. Ты вообще кто?');
    writeln('3 У меня нет времени  на пустую болтовню');
    read(f);
    if f=1 then 
      goto next1;  
    if f=2 then 
      goto next1;   
    if f=3 then 
      goto next1;
       
  end;
  procedure l2(f:integer);
  begin
    writeln;
    writeln('*2 новых сообщения');
    writeln('1 Прочитать');
    read(f);
    if f=1 then
      begin
        
      end;
      next1: 
      begin
    writeln('1');
      end;
      
  end;
  
begin
  window.capiton:=('Anonimous chat');
  window.Width:=800;
  window.Height:=600;
  window.IsFixedSize:=true;
  window.CenterOnScreen;
  window.Clear;
  writeln();
  writeln('*Новое сообщение*');
  writeln();
  writeln('1 Прочитать');
  writeln('2 Проигнорировать');
  read(f);
  if f=1 then l1(f);
  if f=2 then l2(f);
end.