Двоичная система

[Sparkman]

Сообщение от enji4ka

Если Вам не трудно, помогите, пожалуйста, с этой программой):
Создать текстовый массив А с 14 элементами длиною от 1 до 11 символов (текст вводится с клавиатуры). Создать 2 новых массива В и С, в один из них, в В вписать только те символы элементов массива А, которые не являются ни цифрами, ни буквами, а в С -всё остальное)

program example;
uses crt;
const ndc : set of char =
['`','!','@','#','$','%','^','&','*','(',')','-','_',
'=','+','\','|','[','{',']','}',':',';','''','"',',','<','.','>','/','?'];
var A : array [1..14] of string[11];
    B, C : array [1..154] of string[1];
    i,j,n,m:integer;
    ch : char;
begin
     clrscr;
     for i:=1 to 14 do
     begin
          write('Enter ',i,' string: ');
          n:=0;
          repeat
                ch:=readkey;
                A[i]:=A[i]+ch;
                inc(n);
                write(ch);
          until (ch=chr(13)) or (n=11);
          writeln;
     end;
     n:=0;m:=0;
     for i:=1 to 14 do
     for j:=1 to Length(A[i]) do
     begin
          if A[i][j] in ndc then
          begin
               inc(n);
               B[n]:=A[i][j];
          end else
          begin
               inc(m);
               C[m]:=A[i][j];
          end;
     end;
     writeln;
     writeln('Massiv B:');
     for i:=1 to n do
     write(B[i]:2);
     writeln;
     writeln('Massiv C:');
     for i:=1 to m do
     write(C[i]:2);
     writeln;
     readln;
end.