program PathConfig;{'Введите h для помощи'}
uses DOS,CRT;
label beg;
var
 path:array [1..6] of string;
 pc:char;
 p:string;
 bat:text;
begin
 assign(bat,'autoconf.bat');
 rewrite(bat);
 write(bat,'path ');
 writeln('Введите h для помощи');
 while pc <> 'e' do begin
 readln(pc);
 case pc of
 'H','h':begin
          writeln('n - Norton Commander');
          writeln('v - Volkov Commander');
          writeln('u - Norton Utilites');
          writeln('f - FOTON');
          writeln('l - LEXICON');
          writeln('o - other');
          writeln('e - exit')
         end;
 'N','n':begin
          write('Введите полный путь для программы NC:');
          readln(p);
          write(bat,p,';');
         end;
 'V','v':begin
          write('Введите полный путь для программы VC:');
          readln(p);
          write(bat,p,';');
         end;
 'U','u':begin
          write('Введите полный путь для программы NU:');
          readln(p);
          write(bat,p,';');
         end;
 'F','f':begin
          write('Введите полный путь для программы FOTON:');
          readln(p);
          write(bat,p,';');
         end;
  'L','l':begin
          write('Введите полный путь для программы LEXICON:');
          readln(p);
          write(bat,p,';');
         end;
 'O','o':begin
          write('Введите полный путь для программы:');
          readln(p);
          write(bat,p,';');
         end;
 end;
 end;
close(bat);
end.