Не сохраняются изменения в массиве после выполнения slov - Pascal ABC

procedure slov(str:string;var c:integer);
var i:integer;
begin 
 
c:=0; str:=str+' ';
sl:='';
for i:=1 to length(str) do
if str[i]<>' ' then sl:=sl+str[i]
else if sl<>'' then
begin c:=c+1;
a[j,c]:=sl;
sl:='';
end;