Найти количество совпадающих элементов в списках из Memo и ListBox. Исправить програму.

type
  adres = ^zap;    {тип указатель на тип "запись"}
  zap = record      {запись}
    fio: string[40]; {информационное поле}
    Next: adres      {поле ссылки на предыдущий}
end;
 
procedure TForm1.MenuItem1Click(Sender: TObject); {Поиск совпадающих элементов}
var
  i, j, k: integer;
  rab1, rab2, last, last1, last2: adres;
begin
  last := nil;
  for i := Memo.Lines.Count - 1 downto 0 do
  begin
    new(rab1);
    rab1^.fio := Memo.Lines[i];
    rab1^.Next := last;
    last := rab1;
  end;
  last := nil;
  for i := ListBox.Count - 1 downto 0 do
  begin
    new(rab2);
    rab2^.fio := ListBox.Items.Strings[i];
    rab2^.Next := last;
    last := rab2;
  end;
  last1 := nil;
  k := 0;
  for i := Memo.Lines.Count - 1 downto 0 do
  begin
    last2 := nil;
    rab1^.Next := last1;
    for j := ListBox.Count - 1 downto 0 do
    begin
      rab2^.Next := last2;
      showmessage(rab1^.fio);
      showmessage(rab2^.fio);
      if (rab1^.fio = rab2^.fio) then k := k + 1;
      last2 := rab2;
    end;
    last1 := rab1;
  end;
  label3.Caption := 'Количество совпадающих элементов в списках равно: ' + inttostr(k);
end;