массивы строк

[Ivka]

Привет..Ещё одно задание, не могу разобраться...Помогите пожалуйста, если не трудно..
Создать массив(текст) с 15 элементами( длинна от 1 до 10),затем создать ещё 2 массива, где в первом сохранить все буквы и цифры , а во втором все остальные символы...

program masiv;
uses crt;
const n=15;
type mas1=array[1..n] of string;
mas2=array[1..n] of string;
mas3=array[1..n] of string;
var A:mas1;
B:mas2;
C:mas3;
i,j,k:integer;
l,y:string;
begin
clrscr;
writeln;
for i:=1 to n do
repeat
write('Vvedite ',i,'. element masiva===> ');
readln(A[i]);
until (length(A[i])>=1) and (length(A[i])<=10);
writeln;
k:=length(A[i]);
for i:=1 to n do begin
if ((A[i]>='a') and (A[i]<='z')) and ((A[i]>='0') and (A[i]<='9')) then
B[i]:=A[i];
write(B[i]:3);

if ((A[i]<'a') and (A[i]>'z')) and ((A[i]<>'0') and (A[i]<>'9')) then
C[i]:=A[i];
write(C[i]:3);
readln;
end;
end.

[Alex11223]

or, а не and в if. (элемент буква ИЛИ цифра. не может быть однвременно буквой и цифрой)