Сравнение трех текстовых файлов

procedure Tform1.slov;
begin
i2:=1;
    for i1:=1 to Length(stroka) do
      if (stroka[i1]='(') or(stroka[i1]=')') or(stroka[i1]=' ') or (stroka[i1]=',') or (stroka[i1]='.') or (stroka[i1]='!') or
      (stroka[i1]='?') then
      begin
        mass1[i3]:=copy(stroka,i2,i1-i2);
        if not(mass1[i3]=',') and not(mass1[i3]='.') and not(mass1[i3]='"') and not(mass1[i3]='!') then
        begin
        i3:=i3+1;
        i2:=i1+1;
        end else mass1[i3]:='';
      end;
end;
 
procedure TForm1.Button4Click(Sender: TObject);
begin
 AssignFile(f1,Label3.Caption);
 Reset (f1);
 i3:=1;
 while (not EOF(f1)) do
  begin
    Readln (f1,stroka);
    slov;
  end;
 CloseFile (f1);
 AssignFile(f1,Label4.Caption);
 Reset (f1);
  while (not EOF(f1)) do
  begin
    Readln (f1,stroka);
    slov;
  end;
 CloseFile (f1);
 AssignFile(f1,Label5.Caption);
 Reset (f1);
  while (not EOF(f1)) do
  begin
    Readln (f1,stroka);
    slov;
  end;
  mass1[0]:=intTOstr(i3-1);
   for i1:=1 to strTOint(mass1[0]) do
   begin
   i4:=0;
   i5:=0;
    for i2:=1 to strTOint(mass1[0]) do
      if (mass1[i1]=mass1[i2]) and (i1<>i2) then
        begin
        i4:=1;
        for i3:=1 to memo1.Lines.Count do if (mass1[i2]=Memo1.Lines[i3]) then i5:=1;
        end;
   If (i4=1) and not(i5=1) then Memo1.Lines.Add(mass1[i1]);
   If (i4=0) then Memo2.Lines.Add(mass1[i1]);
   end;
end;