индекс находился вне границ массива(паскаль) что делать ??

написал программу мне пишет индекс находился вне границ массива че делать?
var
mass :array [1..128]of string;
s :string;
a,i,z,max :integer;
begin
readln(s);a:=1;
for i:=1 to length(s)do
if s=' ' then begin mass[a]:=copy(s,1,i-1);delete(s,1,i);a:=a+1;end;
for i:=1 to 128 do begin
if length(mass)>max then begin max:=length(mass);z:=mass;end;end;
writeln(z);
end.