Нужно чтобы после завершения одной процедуры можно было выполнить другую не выходя из программы

Program q;
Uses Crt;
 
type
        hk=record
        sname:string;
        all,allper:integer; 
     end;
Var
  
  shtrafAll:integer;
  n: Byte;
  f:text;
  c,max,min:word;
  gol:array[1..10] of integer; // дни недели
  per:array[1..10] of integer;
  shtraf:array[1..10] of integer;
  hokeist:array[1..999] of hk;
 
procedure proc1;
var i,j: integer;
begin
 
  assign(f,'otchet.txt'); 
  rewrite(f);
  
  Writeln('ДИНАМО ');
  writeln('Количество нападающих: ');
  readln(c);
  writeln;
  
  for i:=1 to n do begin
    write('Введите имя ',i,' нападающего: ');
    readln( hokeist[i].sname);
   hokeist[i].all:=0;
   hokeist[i].allper:=0;
    writeln(f,hokeist[i].sname,' ');
      for j:=1 to 1 do begin
          write('Кол-во голов ',' : ');
          readln(gol[j]);
          hokeist[i].all:= hokeist[i].all+gol[j];
          writeln(f,'Голы ',' :',gol[j],' ');
          
          write('Штрафное время ',shtraf[j],' : ');
          readln(shtraf[j]);
          writeln(f,' Штрафное время '' :',shtraf[j]);
  
         
          write('Кол-во передач  ',' : ');
          readln(per[j]);
          hokeist[i].allper:= hokeist[i].allper+per[j];
          writeln(f,'Голы ',' :',per[j],' ');
         end; 
  end;
  readln;
  close(f);
end;
 
procedure proc2;
begin
end;
 
procedure proc3;
begin
end;
 
procedure proc4;
begin
end;
 
 
begin
  clrscr;
  repeat
  ClrScr;
  writeln;
  WriteLn('Динамо');
  WriteLn('Спартак');
  WriteLn('Итоги Динамо');
  WriteLn('Итоги Спартак');
  Write('Select program: ');
  ReadLn(n);
  Case n of
    1: proc1;
    2: proc2;
    3: proc3;
    4: proc4;
  end;
  until n <> 0;
end.

…
Writeln('ДИНАМО ');
  writeln('Количество нападающих: ');
  readln(c); /// ------------------------------------------ Что вводится?
  writeln;
  
  for i:=1 to n do begin /// ----------------------------- Что является параметром цикла?
    write('Введите имя ',i,' нападающего: ');
…