Я пишу процедуру, которая осуществляет добавление элемента в массив при нажатии кнопки. Но при проверке работы выдается ошибка... в чем дело, понять не могу. Не подкажете?
Код
type words=array of string;
procedure add_to_array(var base:words; rus:string);
var k,i:integer;
tmp:words;
begin
i:=length(base);
tmp:=nil;
setlength(tmp,i+1);
for k:=1 to i do
begin
tmp[k]:=base[k];
end;
tmp[i+1]:=rus;
base:=nil;
i:=i+1;
setlength(base,i);
base:=copy(tmp,0,i);
end;
procedure TForm1.baseframeaddbuttonClick(Sender: TObject);
var i,k:integer;
str,rus:string;
base:words;
begin
rus:=baseframe.rusword.Text;
i:=length(base);
add_to_array(base,rus);
end;
procedure add_to_array(var base:words; rus:string);
var k,i:integer;
tmp:words;
begin
i:=length(base);
tmp:=nil;
setlength(tmp,i+1);
for k:=1 to i do
begin
tmp[k]:=base[k];
end;
tmp[i+1]:=rus;
base:=nil;
i:=i+1;
setlength(base,i);
base:=copy(tmp,0,i);
end;
procedure TForm1.baseframeaddbuttonClick(Sender: TObject);
var i,k:integer;
str,rus:string;
base:words;
begin
rus:=baseframe.rusword.Text;
i:=length(base);
add_to_array(base,rus);
end;
plz