Программа не доходит до процедуры ClrAll при правильном вводе данных. В чём может быть ошибка?

uses
  crt;
procedure ClrAll(A: Array of String);
begin
  ClrScr;
  SetLength(A, 0);
end;
 
var
  A: Array of String;
  FullCommand, Command: String;
  i: Integer;
begin
  While true do
  begin
    ReadLn(FullCommand);
      If FullCommand[1] = '/' then
      begin
        For i := 2 to Length(FullCommand) do
          Command := Command + FullCommand[i];
        If Command = 'сlrall' then
          ClrAll(A);
      end;
  end;
end.

Uses crt;
 
procedure ClrAll(A: Array of String); begin
  SetLength(A, 0);
  ClrScr;
end;
 
begin
Var A: array of string; 
//В PABC.NET есть возможность делать локальные переменные, у вас все обрабатывается внутри main-метода, смысла Command в глобальных переменных нет
 
  while true do begin
    var Command := ReadlnString('>>'); //Эта функция тоже должна вам быть известна
    if not (Command[1] = '/') then begin
      Writeln('Excepted slash, but ' + Command[1] + ' met'); 
      continue; //Про это читайте в справке, переходит на новую итерацию цикла
    end;
    Command := Command[2:]; //Зачем ваш цикл, если есть, например Copy. Срез вообще хорошо подойдет (про него читайте в справке)
    case Command of //Если у Вас много команд, то лучше так.
      'clrall': ClrAll(A);
      else Writeln('Unknown command: ' + Command);
    end;
  end;
end.