При вводе ключей (для всех команд /?, для sort /r, для dir /o:s /a:-d /o:n) программа вылетает

program os_cmd;
uses windows,crt,dos;
var
     sdir,sdirc : string;
     coms : string[80];
     cmd : string[10];
     // cmds : array[1..7] of command;
     n,i : word;
     pr : boolean;
     dlkey1 : word;
     tailcmd,argcmd : string[80];
     keys : array[1..3] of string[5];
     error : Integer;
 
{конвентор ср1215-> ср866}
procedure conv(var st:string);
var
     i :word;
     sres:string;
     ch :char;
begin
     sres:='';
     for i:=1 to length(st) do
     begin
     ch:=st[i];
     if(ord(ch)>=$C0)and(ord(ch)<=$EF) then ch:=chr(ord(ch)-64);
     if(ord(ch)>=$F0)and(ord(ch)<=$FF) then ch:=chr(ord(ch)-16);
     sres:=sres+ch;
     end;
     st:=sres;
end;
{конвентор cp866-> ср1215}
procedure convr(var st:string);
var
     i :word;
     sres:string;
     ch :char;
begin
     sres:='';
     for i:=1 to length(st) do
     begin
     ch:=st[i];
     if(ord(ch)>=$E0)and(ord(ch)<=$EF) then ch:=chr(ord(ch)+16);
     if(ord(ch)>=$80)and(ord(ch)<=$AF) then ch:=chr(ord(ch)+64);
     sres:=sres+ch;
     end;
     st:=sres;
end;
{Процедура вывода справки}
procedure helppr;
begin
      writeln;
      writeln('              Список доступных команд'                    );
      writeln('---------------------------------------------------------');
      writeln('Для получения сведений об определенной команде наберите <имя команды>/?');
      writeln;
      writeln('CLS Очистка экрана');
      writeln('DIR  Вывод списка файлов и подпапок из указанной папки');
      writeln('EXIT Завершение работы программы');
      writeln('HELP Выводит справочную информацию о командах');
      writeln('MKDIR Создание папки');
      writeln('SORT Сортировка ввода');
      writeln;
end;
{Процедура создания каталога}
procedure MkDirpr(dir_n:string);
begin
      MkDir(dir_n);
      error:=IOResult;
      if error=0
      then
      begin
      writeln('Каталог', dir_n, 'создался успешно');
      writeln;
      end else
      begin
      writeln('Создание каталога провалилось');
      writeln;
      end;
end;
{Процедура сортировки содержимого текстового файла}
procedure sortpr(r:byte;fn:string);
var f:text;
      st : string[80];
      star: array[1..100] of string[80];
      i,k,n : word;
begin
{$I-} assign(f,fn);
      reset (f);
      n:=1;
      if ioresult<>0 then
      begin
      writeln('файл '+fn+'не найден');
      exit;
      end
      else
      while not eof(f) do
      begin
      readln(f,st);
      conv(st);
      star[n]:=st;
      n:=n+1;
      end;
{$I+} close(f);
      if r=1 then
      begin
      n:=n-1;
      for i:=1 to n do
      for k:=1 to n-1 do
            if star[k]>star[k+1] then
            begin
            st:=star[k]; star[k]:=star[k+1]; star[k+1]:=st;
            end;
      for i:=1 to n do
      begin
            writeln(star[i]);
      end;
      end else
      begin
      n:=n-1;
      for i:=1 to n do
      for k:=1 to n-1 do
           if star[k]<star[k+1] then
           begin
           st:=star[k]; star[k]:=star[k+1]; star[k+1]:=st;
           end;
      for i:=1 to n do
      begin
           writeln(star[i]);
 
      end;
      end;
 
end;
{Процедура команды DIR}
procedure dirpr(keys1,keys2:string);
 
type tdsan = record
           Fill : array[1..2] of byte;
           Attr : byte;
           date : datetime;
           Size : longint;
           Name : string;
           fol_r:string [6];
           end;
var dt:datetime;
       s:searchrec;
       curdir : string;
       summ_size : longint;
       vr : tdsan;
       koll,koll_files,koll_folders: integer;
       mas : array[1..500] of tdsan;
 
function firstz(d:word):string; {added '0' to digit}
var t: string;
begin
     str(d:0,t);
     if length(t)=1 then t:='0'+t;
     firstz:=t
end;
 
begin
     summ_size:=0;
     koll:=0;
     koll_files:=0;
     koll_folders:=0;
     writeln;
     if keys1='/?' then
     begin
     writeln('Выводит содержимое каталога');
     Writeln;
     Writeln('DIR [диск:][путь][имя_файла][/A:-D][/O:N][/O:S]');
     Writeln;
     writeln('/a:-d выводит содержимое каталога без каталогов');
     writeln('/o:n выводит содержимое каталога по имени');
     writeln('/o:s выподит содержимое каталога по размеру');
     writeln('[диск:][путь][имя_файла]');
     writeln('Диск, каталог и/или файлы, которые следует включить в список');
     Writeln;
     exit;
     end;
 
if length(argcmd)>0 then
begin
     if pos(':\',argcmd)=0 then
     begin
     if(pos('\',argcmd)=1) and (length(sdir) - pos('\',sdir) =0) then
     begin
     argcmd:=copy(argcmd,pos('\',argcmd)+1,length(argcmd));
     curdir:=sdir+argcmd;
     end;
     if(pos('\',argcmd)=1) and (length(sdir) - pos('\',sdir)>0) then curdir:=sdir+argcmd;
     if(pos('\',argcmd)>1) then curdir:=sdir+'\'+argcmd;
     if(pos('\',argcmd)=0) and (length(sdir) - pos('\',sdir)=0) then curdir:=sdir+argcmd;
     if(pos('\',argcmd)=0) and (length(sdir) - pos('\',sdir)>0) then curdir:=sdir+'\'+argcmd;
     end else
     begin
     curdir:=argcmd;
     end;
end
else curdir:=sdir;
 
if pos('.',curdir)>0 then
findfirst(curdir,Anyfile,s)
else findfirst(curdir+'\*.*',Anyfile,s);
 
conv(curdir);
writeln;
writeln('Содержимое папки',curdir);
writeln;
 
if (keys[1]<>'/?') and (keys[2]='/a:-d') and (keys[1]<>'/a:-d') then
begin
keys1:=keys[2];
keys2:=keys[1];
end;
 
if keys1='/a:-d' then
begin
      i:=1;
while doserror=0 do
begin
      if(s.attr<>16) and (s.attr<>18) and (s.attr<>48) and (s.attr<>22) then
      begin
      unpackTime(s.time,dt);
      mas[i].date.hour:=dt.hour;
      mas[i].date.min:=dt.min;
      mas[i].date.day:=dt.day;
      mas[i].date.month:=dt.month;
      mas[i].date.year:=dt.year;
      mas[i].attr:=s.attr;
      mas[i].size:=s.size;
      mas[i].name:=s.name;
      mas[i].fol_r:='';
      findNext(s);
      koll_files:=koll_files+1;
      koll:=koll+1;
      i:=i+1;
      end else findNext(s);
      end;
end else
 
begin
     i:=1;
     while doserror=0 do
     begin
     unpackTime(s.time,dt);
     mas[i].date.hour:=dt.hour;
     mas[i].date.min:=dt.min;
     mas[i].date.day:=dt.day;
     mas[i].date.month:=dt.month;
     mas[i].date.year:=dt.year;
     mas[i].attr:=s.attr;
     mas[i].size:=s.size;
     mas[i].name:=s.name;
     mas[i].fol_r:='';
     if(mas[i].attr=16) or (mas[i].attr=18) or (mas[i].attr=48) or (mas[i].attr=22) then
     begin
          koll_folders:=koll_folders + 1;
          mas[i].fol_r:='<DIR>';
          end
          else
          koll_files:=koll_files+1;
     findNext(s);
     koll:=koll+1;
     i:=i+1;
     end;
 
     if keys1='/o:s' then
     begin
     for i:=1 to koll-1 do
     begin
            for n:=1 to koll-i do
            if mas[n].size>mas[n+1].size then
            begin
            vr:=mas[n];
            mas[n]:=mas[n+1];
            mas[n+1]:=vr;
            end
     end;
     end;
 
     if keys1='/o:n' then
     begin
     for i:=1 to koll-1 do
     begin
            for n:=1 to koll-i do
            if mas[n].name>mas[n+1].name then
            begin
            vr:=mas[n];
            mas[n]:=mas[n+1];
            mas[n+1]:=vr;
            end;
     end;
     end;
end;
     if keys2='/o:n' then
     begin
     for i:=1 to koll-1 do
     begin
           for n:=1 to koll-i do
           if mas[n].name>mas[n+1].name then
           begin
           vr:=mas[n];
           mas[n]:=mas[n+1];
           mas[n+1]:=vr;
           end;
     end;
     end;
     if keys2='/o:s' then
     begin
     for i:=1 to koll-1 do
     begin
            for n:=1 to koll-i do
            if mas[n].size>mas[n+1].size then
            begin
            vr:=mas[n];
            mas[n]:=mas[n+1];
            mas[n+1]:=vr;
            end;
     end;
     end;
for i:=1 to koll do
begin
       write(firstz(mas[i].date.day),'.',firstz(mas[i].date.month),'.',firstz(mas[i].date.year));
       conv(mas[i].name); // преобразовав имени файла
       writeln('    ',firstz(mas[i].date.hour),':',firstz(mas[i].date.min),mas[i].fol_r:10,' ',mas[i].size:12,' ',mas[i].name);
       summ_size:=summ_size + mas[i].size;
end;
writeln(koll_files:16,'файлов',summ_size:12,'байт');
writeln(koll_folders:16,'папок',DiskFree(0):12,'байт свободно');
writeln;
FindClose(s);
end;
 
begin
      clrscr;
      writeln('Курсовая работа по дисциплине Операционные системы');
      writeln;
      writeln('Для получения справки о командах введите HELP');
      writeln;
      while (true) do
      begin
      GetDir(0,sdirc); //получить текущий каталог
      sdir:=sdirc;
      conv(sdirc);
      write(sdirc);
      write('>');
      readln(coms);
      pr:=false;
      if coms='exit' then break;
 
      //Выделение названия команды
      n:=pos(' ',coms);
      if n=0 then
      begin
             cmd:=coms;tailcmd:='';
      end
             else
      begin
             cmd:=copy(coms,1,n-1); //выделение команды
             tailcmd:=copy(coms,n+1,length(coms)); //все что осталось после команды без пробела
      end;
      cmd:=LowerCase(cmd); //перевод команды в нижний регистр
      //проверка на правильность введенной команды
      if (cmd='sort') or (cmd='cls') or (cmd='help') or (cmd='mkdir') or (cmd='md') or (cmd='dir') or (cmd='') then
      begin
           i:=1;
           argcmd:='';
           if (pos('/',tailcmd)=0) or (pos('/',tailcmd)>1) then
           begin
           while (tailcmd[i]<>'/') do
           begin
                 if i>=length(tailcmd)+1 then break;
                 if(tailcmd[i]=' ') and (tailcmd[i+1]='/') then break
                 else
                 argcmd:=argcmd+tailcmd[i];
                 i:=i+1;
           end;
           tailcmd:=copy(tailcmd,i,length(tailcmd));
           end;
           if pos('     ',tailcmd)=1 then tailcmd:=copy(tailcmd,pos(' ',tailcmd)+1,length(tailcmd));
           // выделение ключей команды
           if pos('/',tailcmd)>0 then //ключ есть
           begin
           if pos('/',tailcmd)=0 then //ключ один
           begin
                   dlkey1:=length(tailcmd);
                   keys[1]:=copy(tailcmd,pos('/',tailcmd),dlkey1);
           end else
           //более 1 ключа
           for i:=1 to 3 do
           begin
                  if pos('/',tailcmd)>0 then
                  begin
                  dlkey1:=pos(' ',tailcmd)-pos('/',tailcmd); //выделяем ключ
                  keys[i]:=copy(tailcmd,pos('/',tailcmd),dlkey1);
                  tailcmd:=copy(tailcmd,pos(' ',tailcmd)+1,length(tailcmd));
                  end else
                  begin
                  dlkey1:=length(tailcmd);
                  keys[i]:=copy(tailcmd,pos('/',tailcmd),dlkey1);
                  tailcmd:='';
                  end;
           end;
           end;
           //перевод ключей в нижний регистр
           for i:=1 to 3 do
           begin
           keys[i]:=LowerCase(keys[i]);
           end;
           convr(argcmd);
           //Очистка экрана
           if cmd='cls' then
           begin
           if (keys[1]='/?') and (length(argcmd)>0) then //ключ?
           begin
                Writeln('Очищает содержимое экрана');
                Writeln;
                Writeln('CLS');
                Writeln;
           end;
           if (keys[1]<>'/?') and (keys[1]<>'') or (length(argcmd)>0) then
           begin
                Writeln('Ошибка в синтаксисе команды');
                Writeln;
           end;
           if (keys[1]='') and (length(argcmd)=0) then clrscr;
           argcmd:='';
           keys[1]:='';
           end;
           //Справка
           if cmd='help' then
           begin
           if (keys[1]<>'') or (length(argcmd)>0) then
           begin
                Writeln('Ошибка в синтаксисе команды');
                Writeln;
           end;
           if (keys[1]<>'') or (length(argcmd)=0) then helppr;
           argcmd:='';
           keys[1]:='';
           end;
           //Создание каталога
           if (cmd='mkdir') or (cmd='md') then
           begin
           if keys[1]='/?' then
           begin
                Writeln('Создание папки');
                Writeln;
                Writeln('MKDIR [имя каталога]');
                Writeln;
                Writeln('MD[имя каталога]');
                Writeln;
           end;
           if length(argcmd)>0 then mkdir (argcmd);
           if (keys[1]<>'/?') and (length(argcmd)=0) then
           begin
                Writeln('Ошибка в синтаксисе команды');
                Writeln;
           end;
           argcmd:='';
           keys[1]:='';
           end;
           //сортировка
           if cmd='sort' then
           begin
           if keys[1]='/?' then
           begin
                Writeln('Сортировка содержимого текстового файла');
                Writeln;
                Writeln('SORT[диск:][путь]имя_файда][/R]');
                Writeln;
                Writeln('/R Обратный порядок сортировки; т.е. сортировка');
                Writeln(' идет от Z до A, и затем от 9 до 0');
                Writeln;
                Writeln(' [диск:][путь]имя_файла] Определячет имя  сортуемого файла');
                Writeln;
           end;
 
           if (length(argcmd)>0) and (keys[1]='') then
           begin
                sortpr (1,argcmd);
                Writeln;
           end;
 
           if keys[1]='/r' then
           begin
                sortpr (2,argcmd);
                Writeln;
           end;
 
           if (length(argcmd)=0) and (keys[1]='') then
           begin
                Writeln('Ошибка в синтаксисе команды');
                Writeln;
           end;
           keys[1]:='';
           argcmd:='';
           end;
 
           //Команда DIR
           if cmd='dir' then
           begin
           if (keys[1]='/a:-d') or (keys[1]='/o:n') or (keys[1]='/o:s') or (keys[1]='') or (keys[1]='/?') then
           begin
                dirpr(keys[1],keys[2]);
                end else
                begin
                        Writeln('Ошибка в синтаксисе команды');
                Writeln;
           end;
           keys[1]:='';
           argcmd:='';
           end;
 
 
      end else
      begin
                Writeln('', cmd,' не является командой');
      end;
      end;
end.
                Writeln;

uses SysUtils, StrUtils, ...;
 
//
      readln(coms); // читаешь ввод пользователя
 
      repeat // убираешь из него лишние пробелы
        coms := stringreplace(coms, '  ', ' ', [rfreplaceall]);
      until pos('  ', coms) = 0;
 
      n := 1;
      repeat
        inc(n);
        keys[n - 1] := ExtractDelimited(n, coms, [' ']); // вытаскиваешь ключи
      until keys[n - 1] = '';
 
      case ExtractDelimited(1, coms, [' ']) of // вытаскиваешь команду, и работаешь по ней. Ключи уже есть...
        'cls':
          begin // обработка "cls"
          end;
        'dir':
          begin // обработка "dir"
          end;
        // и так далее
      end;