[krreminator]

Прошу помощи. Задание лабы состоит в программировании одной кнопки текстового редактора, в котором присутствуют ListBox и RichEdit. Кнопка должна выполнять следующие действия:
В Каждой строчке RichEdit-а найти слово в центре строки. Слова разделяются пробелами. Найденные слова записать в новый файл.
У меня есть некоторые наработки, но знаю, что в чем-то есть ошибка, подскажите, пожалуйста, в чем:

Код:

procedure TForm1.ToolButton13Click(Sender: TObject);
var s: array [1..10] of integer; s1,s2,s3,s4: string; i,j,k:integer; f: TextFile ;
begin
for i:=1 to length(richedit1.lines.strings[i]) do
  s[i]:=trunc(length(richedit1.lines.strings[i])/2);
  begin
  for j:=s[i] downto 1  do
    s1:=richedit1.lines.strings[j];
    s2:=' ';
   while (s1)<>' ' do
       s2:=s2+s1[j];
        break;
   end;
   begin
   for k:=s[i] to length(richedit1.lines.strings[i]) do
   s1:=richedit1.lines.strings[j];
   s3:=' ';
   while (s1)<>' ' do
       s3:=s3+s1[j];
        break;

       end;
      s4:=s2+s3;
      AssignFile(f, '*.txt');
      Append(f);
      Writeln(f, s4);
      Closefile(f);
     end;