При вводе значения в программу возникает ошибка exitcode=216

program stroka3;
var  a:array[1..80] of string;
     b:array[1..80] of string;
     tochka,spice:char;
     str:string;
     q,w,n,l:byte;
     i:integer;
begin
spice:=' '; tochka:='.'; w:=0; n:=0; i:=0;
writeln ('Введите строку');
read (str);
while str<>spice do
     begin
     if str<>'.'
     then
         begin
         a[n]:=str;
         inc(n);
         end;
     read(str);
     end;
read(str);
if n<=1
then write ('Строка пуста')
else begin
     repeat
     writeln ('Будем проводить проверку слов? 1 - да, 0 - нет');
     readln(q);
     until (q=1) or (q=0);
     if q=0
     then writeln ('Проверка не была произведена')
     else begin
          w:=pos(tochka,str);
          str:=copy(str,1,w-1);
          repeat
                w:=pos(spice,str);
                if w=1
                then delete(str,w,1)
                else begin
                     inc(i);
                     a[i]:=copy(str,1,w-1);
                     delete(str,1,w);
                     l:=length(a[i]);
                     b[i]:=copy(a[i],1,l);
                     end;
           until w=0;
           for w:=1 to i do begin
                            write ('Слово №',w:2,':',a[w],'(Длина слова* =',b[w]:3);
                            end;
                     end;
           end;
end.

a:array[1..80] of string;//от 1 начинается

spice:=' '; tochka:='.'; w:=0; n:=0; i:=0;//n=0

then
         begin
         a[n]:=str;//пытаемся записать в нулевую ячейку, которой нет
         inc(n);//потом увеличиваем счетчик, а нужно это делать до

inc(n);
a[n]:=str;