Сформировать новый массив, в который включить только латинские буквы из исходного массива - Turbo Pascal

Формулировка задачи:

дан массив. сформировать новый массив, в который включить только латинскые буквы из исходного массива

Решение задачи: «Сформировать новый массив, в который включить только латинские буквы из исходного массива»

Листинг программы

Var A,B:array[1..100] of char;
    i,n,m:byte;
Begin
    write('Введите размерность массива: ');readln(n);
    For i:=1 to n do
    Begin
      write('A[',i,'] = ');
      readln(A[i]);
    End;
    m:=0;
    For i:=1 to n do
     if (('a'<=A[i])and(A[i]<='z'))or(('A'<=A[i])and(A[i]<='Z')) then
     Begin
       inc(m);
       B[m]:=A[i];
     End;
    writeln('Полученный массив');
    For i:=1 to m do
     write(B[i],' ');
    readln;
End.

Объяснение кода листинга программы

Создается переменная A типа array[1..100] of char, которая будет использоваться для хранения исходного массива.
Создается переменная B типа array[1..m] of char, где m пока еще не определен. Эта переменная будет использоваться для хранения нового массива.
Создается переменная i типа byte, которая будет использоваться для итерации по исходному массиву.
Создается переменная n типа byte, которую пользователь должен ввести и которая будет использоваться для определения размера нового массива.
Запускается цикл for, который выполняется n раз. На каждой итерации цикла считывается значение A[i] и записывается в переменную A[i].
Инициализируется переменная m значением 0.
Запускается цикл for, который выполняется n раз. На каждой итерации цикла проверяется, содержит ли A[i] только латинские буквы. Если это так, то увеличивается значение m и записывается значение A[i] в переменную B[m].
Выводится сообщение Полученный массив.
Запускается цикл for, который выполняется m раз. На каждой итерации цикла выводится значение B[i] с пробелом между ними.
Программа завершается, ожидая ввода пользователя.