Повтор подпрограммы

[MNaz]

procedure MakeCmd(comand:string);
begin
if comand='/close' then Halt();
if comand='/help' then LoadCmd();
end;
			
procedure Init();
label l1;
var cmd:string;
begin
l1:readln(cmd);
MakeCmd(cmd);
goto l1;
end;

При первом круге программа выполняется нормально. После, даже если ввести другую команду, будет повторять первую.. LoadCmd() - загружает строки из файла. Делаю меню в программе. Посмотрите, может гдето протупил!

[Serge_Bliznykov]

кроме мелких огрехов, ничего особо криминального не вижу..


единственное, я бы бесконечный цикл написал совсем по другому.
например, так:

procedure Init();
var cmd:string;
begin
  while True do begin
     readln(cmd);
     MakeCmd(cmd);
  end;
end;

[MNaz]

блин, что самое странное - ПОМОГЛО! )) благодарю, хотя проблеммы в самом коде всеравно не вижу(