В массиве Р выбрать и распечатать те слова, которые начинаются с комбинации букв КРА- Pascal(Паскаль)

uses crt;

const
  nmax = 20;

var
  a: array [1 .. nmax] of string;
  n, i, j, k: byte;

begin
  clrscr;
  repeat
    write('Размер массива до ', nmax, ' n=');
    readln(n);
  until n in [1 .. nmax];
  writeln('Введите ', n, ' слов, в том числе начинающийся на КРА:');
  for i := 1 to n do
    readln(a[i]);
  writeln('Слова, начинающихся на КРА:');
  i := 1;
  while i <= n do
    if (a[i][1] in ['к', 'К']) and (a[i][2] in ['р', 'Р']) and
      (a[i][3] in ['а', 'А']) then
    begin
      write(a[i], ' ');
      for j := i to n - 1 do
        a[j] := a[j + 1];
      n := n - 1;
    end
    else
      i := i + 1;
  writeln;
  writeln('Массив без слов, начинающихся на КРА:');
  for i := 1 to n do
    write(a[i], ' ');
  readln

end.