нужно дописать программу (c оператором for to do)

var
i:integer;
begin

//Это на кнопку - [B]Заполнить[/B]...
procedure TForm1.Button1Click(Sender: TObject);
var 
  i,j,n : integer;
begin
  Memo1.Clear;
  Memo2.Clear;
  Memo3.Clear;
  randomize;
 
  //Заполняем первое Memo
  n:=strtoint(edit1.Text);
  for i:=1 to n do
  Memo1.Lines.Add(inttostr(Random(100)-50)); //Нумеровать их нет необходимости - будет только мешать
  //Заполняем второе Memo
  n:=strtoint(edit2.Text);
  for i:=1 to n do
  Memo2.Lines.Add(inttostr(Random(100)-50))
end;
 
//Это на кнопку - [B]Объединить[/B]...
procedure TForm1.Button2Click(Sender: TObject);
var 
  i : integer;
  StrList : TStringList;
begin
  StrList:=TStringList.Create;
  StrList.Sorted:=True;             //Разрешаем сортировку
  StrList.Duplicates:=dupIgnore; //Запрещаем двойные строки
 
  //Переносим в StringList первое Memo
  for i:=0 to Memo1.Lines.Count-1 do
  StrList.Add(Memo1.Lines[i]);
  //Переносим в StringList второе Memo
  for i:=0 to Memo2.Lines.Count-1 do
  StrList.Add(Memo2.Lines[i]);
 
  //Переносим все строки в Memo3
  for i:=0 to StrList.Count-1 do
  Memo3.Lines.Add(StrList.Strings[i]);
 
  Edit3.Text:=IntToStr(StrList.Count); //Количество строк в третьем массиве
 
  StrList.Free; //Освобождаем StringList
end;
 
procedure TForm1.Edit1Click(Sender: TObject);
begin
  edit1.Text:='';
end;
 
procedure TForm1.Edit2Click(Sender: TObject);
begin
  edit2.Text:='';
end;

  i,n : integer;

var 
  i : integer;
  StrList : TStringList;

Label1.Caption:=IntToStr(StrList.Count);