{=**= Демонстрационная программа текстового движка =**=}
 var
 y1 : integer; {код команды}
 s1,s2 : String; {для обработки строк}
 stop : boolean; {завершить программу???}
 Procedure InputStr;
 var
 i : byte;
 begin
 Write('>>');
 i:=1;
 Readln(s1);
 s2:='';
 While (s1[i]=' ') and (i<=length(s1)) do inc(i);
 While (s1[i]<>' ') and (i<=length(s1)) do
 begin
 s2:=s2+upcase(s1[i]);
 inc(i)
 end;
 if length(s2)>3 then delete(s2,4,100);
 end;
 Procedure Morfolog;
 begin
 y1:=0;
 { Команды : }
 if (s2='N') or (s2='NOR') or (s2='NO') or (s2='NORT') then y1:=1;
 if (s2='S') or (s2='SOU') or (s2='SO') or (s2='SOUT') then y1:=2;
 if (s2='HEL') or (s2='H') or (s2='HE') or (s2='HELP') then y1:=3;
 if (s2='QUI') or (s2='QU') or (s2='QUIT') or (s2='Q') then y1:=255;
 end;
 Procedure Work;
 begin
 Case y1 of
 1: begin
 {идем на север}
 writeln('Идем на север...');
 end;
 2: begin
 {идем на юг} 
 writeln('Идем на юг...');
 end;
 3: begin
 {помощь}
 writeln('Помощь...');
 end;
 255: begin
 writeln('Как Вам будет угодно...');
 Stop:=true;
 end;
 end;
 end;
 begin
 Stop := false;
 While not stop do
 begin
 InputStr;
 Morfolog;
 Work;
 end;
 end.