Ошибка: "переменная цикла for должна описываться в том же блоке, что и цикл for"

uses
  
  crt;
 
 
label 
M, m2;
var
  
  rk: char;
  str: string;
  s: array[1..20] of string;
  i, k: integer;
 
 
procedure hello;
begin
  clrscr; 
  TextColor(15);    
  GotoXY(17, 4); 
  writeln('Вывести все слова в строке в обратном порядке');
  GotoXY(14, 15);
  writeln('что бы продолжить');
  GotoXY(16, 16); 
  writeln('нажмите любую кнопку');
  readkey();
end;
 
procedure menu;
begin
  clrscr;
  gotoxy(25, 1);
  writeln('Меню');
  gotoxy(13, 5);
  writeln('1) - Вывести все введённые вами слова в строке в обратном порядке');
  gotoxy(13, 7);
  writeln('2) - о программе');
  gotoxy(13, 9);
  writeln('3) - ВЫХОД');
  GotoXY(2, 23);
  writeln('для того чтобы выбрать один из пунктов, нажмите цифру, соответствующую пункту');    
  rk := ReadKey;
end;
 
Procedure code;
begin
      clrscr;
      writeln(' введит слова');
      gotoxy(2, 2);
      readln(str);
      k := 1;
      s[k] := s[k] + ' ';
      for i := 1 to length(str) do      
      begin
        if str[i] <> ' ' then
          s[k] := s[k] + str[i] else
        begin
          k := k + 1;
          s[k] := ' ';
        end;
      end;
      writeln(' результат');
      for i := k downto 1 do
        write(s[i]);
      ReadKey();
end;
//==============================================================================
begin
  hello;
  clrscr;
  M:
  menu;
    begin
    if rk = '3' then exit;  
    if rk = '2' then   begin
      hello;
      goto M;
    end;
    if rk = '1' then begin
    code;
      exit;
    end; 
    begin
      goto M;
    end;
  end;
end.