Формирование массива слов и удаление из текста слов, которые встречаются заданное число раз

procedure TfmMain.Button1Click(Sender: TObject);
 var m: array[0..100] of string;
  i,j,n,w: integer;
 F1,F2: TextFile;
  sim: char;
  s: string;
begin
 AssignFile(F1,'ex1.txt');
 AssignFile(F2,'ex2.txt');
 
 begin;
  Rewrite(F1);
  Writeln(F1,memo1.Text);
  CloseFile(F1);
 end;
  j:=0;
 
  with Memo1 do
 
   begin
    for n:=0 to lines.count-1 do
     begin
     s:= lines[n]+' ';
      for i:=1 to length(s) do
        begin
        m[j]:=m[j]+copy(s,i,1);
        if (copy(s,i,1)=' ') then
        j:=j+1;
        end;
     end;
  end;
 
  w:= StrToInt(Edit1.Text);
 .
 .
 .
 .
Rewrite(F2);
  for j:=0 to length(s)-1 do
    write(F2,m[j]);
 
  Reset(F2);
  memo2.lines.clear;
 
while not Eof(F2) do
    begin
      Read(F2,sim);
      Memo2.Text:=Memo2.Text+sim
    end;
    CloseFile(F2);
 
end;

procedure TFormX.Button1Click(Sender: TObject);
var L, Rez: TStringList;
    i, k, n: integer;
    s : string;
begin
  n := StrToInt(Edit1.Text);
  L := TStringList.Create;
  L.CommaText := AnsiLowerCase(Memo1.Text);
  Rez := TStringList.Create;
  for i := 0 to L.Count - 1 do
    begin
      k := Rez.IndexOf(L.Strings[i]);
      if k = -1 then
        Rez.AddObject(L.Strings[i], TObject(1))
      else Rez.Objects[k] := TObject(integer(Rez.Objects[k]) + 1);
    end;
  s := '';
  for i := 0 to L.Count - 1 do begin
     k := Rez.IndexOf(L.Strings[i]);
     if integer(Rez.Objects[k]) <> n then s := s + L.Strings[i]+' ';
  end;
  Memo2.Text := s;
  L.Free;
  Rez.Free;
end;

Memo1.Lines.LoadFromFile('имяфайла.txt');

Memo2.Lines.SaveToFile('Новыйфайл.txt');

procedure TFormX.Button1Click(Sender: TObject); //Реализация метода формы FormX - обработчик события нажатия на кнопку Button1
var L, Rez: TStringList; //Объявление 2-х переменных типа Список строк
    i, k, n: integer; //объявление 3-х целочисленных переменных
begin
//присваивание переменной n данных введенных в Эдит1 с преобразованием строкового значения в числовое
//n - число вхождений слова в текст
  n := StrToInt(Edit1.Text); 
//создаем рабочий экземпляр СтрингЛиста и присваиваем этот экземпляр переменной L
  L := TStringList.Create; 
//Заполняем рабочий список строк текстом из Мемо1 с одновременной разбивкой на отдельные слова
//при этом слова сразу переводятся в нижний регистр
//При использовании метода CommaText разделителями будут являться запятая и пробел
  L.CommaText := AnsiLowerCase(Memo1.Text); 
//создаем результирующий экземпляр СтрингЛиста и присваиваем этот экземпляр переменной Rez
  Rez := TStringList.Create;
//начинаем обход рабочего списка строк в цикле, где на каждой итерации...
  for i := 0 to L.Count - 1 do
    begin
//проверяем имеется ли очередное слово из рабочего списка в результирующем. Номер позиции слова записываем в переменную k
//Если слово не найдено - переменная k получит значение -1
      k := Rez.IndexOf(L.Strings[i]);
//Если слово не найдено, то...
      if k = -1 then
//добавляем в результирующий список очередное слово из рабочего списка и объект, в котором будем хранить количество вхождений слова
//т.к. слова в результирующем списке еще не было - значением объекта будет 1
        Rez.AddObject(L.Strings[i], TObject(1))
//иначе - извлекаем объект из k-той строки результирующего списка, преобразовываем этот объект в целочисленный тип,
//увеличиваем его значение на 1 и снова ассоциируем с объектом k-той строки, преобразовав целое число в тип TObject
      else Rez.Objects[k] := TObject(integer(Rez.Objects[k]) + 1);
    end;
//Очищаем результирующее поле Мемо2
  Memo2.Lines.Clear;
//Начинаем цикл обхода результирующего списка строк, где на каждой итерации...
  for i := 0 to Rez.Count - 1 do 
//проверяем, если значение очередного объекта, преобразованного в целочисленный тип, не равно числу вхождений слова в текст
//то добавляем это слово в результирующее поле Мемо2
//в итоге в результирующем поле Мемо2 останутся только те слова, число вхождений в исходный текст которых больше или меньше (но не равно!!!) числа N
     if integer(Rez.Objects[k]) <> n then Memo2.Lines.Add(Rez.Strings[i];
//удаляем рабочий и результирующий списки строк
  L.Free;
  Rez.Free;
end; //GAME OVER!!!