Курсовая работа: Эмуляция командного процессора ОС UNIX в среде Windows 9x

pos1 := Pos(' ', cnp);

keys := Copy(cnp, 1, pos1);

Delete(keys, 1, 1);

Delete(cnp, 1, pos1);

end;

if Pos('d', keys) <> 0 then

begin

d := True;

Delete(keys, Pos('d', keys), 1);

end

else

d := False;

if Pos('s', keys) <> 0 then

begin

s := True;

Delete(keys, Pos('s', keys), 1);

end

else

s := False;

if Pos('w', keys) <> 0 then

begin

w := True;

Delete(keys, Pos('w', keys), 1);

while Pos(' ', keys) <> 0 do

Delete(keys, Pos(' ', keys), 1);

Val(keys, n, cod);

if cod <> 0 then

begin

WriteLn('Ошибка при задании длины строки!');