Паскаль, массивы строк

[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')) or ((A[i]>='0') and (A[i]<='9')) then
B[i]:=A[i];
write(B[i]:3);

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

[Biggs]

А почему в mas2=array[1..n] of string; длина массива -n?
var A:mas1; -это что такое?