Файлы в делфи

[Rudichekkk]

Создать текстовый файл F1 не менее, чем из 10 строк и записать в него информацию.

1)Скопировать из файла F1 в файл F2 все строки, в которых нет слов, совпадающих с первым словом.

[Arigato]

http://programmersforum.ru/showthread.php?t=250046
http://programmersforum.ru/showthread.php?t=249821

Вы для чего темы плодите?

[Rudichekkk]

мне эта программа позарез нужна, а меня все игнорят

[Arigato]

Может потому, что вам никто на халяву не обязан ничего решать? Или решаете сами, спрашивая, что не получается, показывая свои достижения, или тогда уж платите за работу и получайте готовый код с объяснениями.

[ZX Spectrum-128]

Это два разных человека постят одну и ту же тему? Или один? Я запутался.

[Rudichekkk]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
  f1,f2:textfile;
  s,t:string;


begin
  AssignFile(f1,'file1.txt');
  AssignFile(f2,'file2.txt');
  Reset(f1);
  rewrite9(f2);
  while not Eof(f1) do
  begin
    Readln(f1,s);
    if (t:=Pos(s,' ') then
      begin
        for i:=1 to 10 do


      end;
  end;



  { TODO -oUser -cConsole Main : Insert code here }
end.

вот что я написал , но я не знаю как дальше написать что бы он не писал повторяющиеся слова

[ZX Spectrum-128]

Зря вы это написали
http://programmersforum.ru/showthread.php?t=250046
Вот сюда можно добавить одну строчку: ввод с клавиатуры
И изменить другую: запись этой строки в файл
Все

[Rudichekkk]

Сообщение от ZX Spectrum-128

Зря вы это написали
http://programmersforum.ru/showthread.php?t=250046
Вот сюда можно добавить одну строчку: ввод с клавиатуры
И изменить другую: запись этой строки в файл
Все

Поподробней можно очень прошу , надо позарез

[ZX Spectrum-128]

var
  f:text;
...
assign(f,'text.txt');
rewrite(f);
for i:=1 to 10 do
Begin
  // сюда вставить процедуру, читающую строку с клааиатуры
  writeln(f,'всякую чушь писать можно здесь'); // а эту изменить
End;
close(f);