разделение массивов

var a:array [1..17] of char;
i:byte {индекс};
 
begin
 readln (i)  ;
 For i:=integerdo  c:array [1..17] of integer ;
 For i:=word do d:array ['a'..'z'] of word;
    Writeln (c)   ;
    Write (d)   ;

var
 
  a: array [1..17] of integer;
 e:array ['a'..'z'] of word     ;
 
 
i:byte ;
 c:integer;
 d:word;
 
begin
for i:=1 to 17 do
begin writeln (i);
      end;

uses crt;
var s,s1,x:string;
    c:array[1..100] of integer;
    b:array[1..100] of string;
    n,m,i,j:byte;
    y,a,k:integer;
begin
clrscr;
writeln('Введите строку из малых латинских букв и целых чисел, разделенных запятыми:');
readln(s);
n:=0;
m:=0;
s:=s+',';
while pos(',',s)>0 do
 begin
  s1:=copy(s,1,pos(',',s)-1);
  val(s1,a,k);
  if k=0 then
   begin
    n:=n+1;
    c[n]:=a;
   end
  else
   begin
    m:=m+1;
    b[m]:=s1;
   end;
  delete(s,1,pos(',',s));
 end;
if n>0 then
 begin
  for i:=1 to n-1 do
  for j:=i+1 to n do
  if c[i]>c[j] then
   begin
    y:=c[i];
    c[i]:=c[j];
    c[j]:=y;
   end;
  writeln('Числа в порядке возрастания:');
  for i:=1 to n do
  write(c[i],' ');
  writeln;
 end
else writeln('Чисел нет');
if m>0 then
 begin
  for i:=1 to m-1 do
  for j:=i+1 to m do
  if b[i]>b[j] then
   begin
    x:=b[i];
    b[i]:=b[j];
    b[j]:=x;
   end;
  writeln('Буквы по алфавиту:');
  for i:=1 to m do
  write(b[i],' ');
  writeln;
 end
else writeln('Букв нет');
readln
end.