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.