Текстовый файл

[ponchikpk]

Дан текстовый файл. Создать новый текстовый файл, записав в него все четные по номеру строки исходного файла

Помогите пожалйуста! Сам никак не успеваю написать

[Terran]

Если я всё правильно понял, то код будет такой:

Procedure TForm1.Button1Click(Sender: TObject);
Var
S,T: TStringList;
Begin
S:=TStringList.Create;
T:=TStringList.Create;
S.LoadFromFile('Ваш исходный файл.txt');
T.Add(S.Strings[0]);  //Номер строки 1
T.Add(S.Strings[1]);  //Номер строки 2
T.Add(S.Strings[2]);  //Номер строки 3
T.Add(S.Strings[3]);  //Номер строки 4
T.SaveToFile('Новый файл.txt');
S.Free;
T.Free
End;

Писал код по быстрому так что если понадобится, то оптимизируйте его или измените.

[ponchikpk]

мне бы на паскале без объектов всяких...

[Serge_Bliznykov]

var f1,f2 : Text;
  s : string;
  i  : integer;
begin
  Assign(f1,'MyInput.txt');
  Reset(f1);
  Assign(f2,'MyOut.txt');
  Rewrite(f2);
  i := 0;
  while Not Eof(f1)  do begin
     ReadLn(f1,s);
     i := i + 1;
     if (i mod 2) = 0 then {номер строки чётный}
      WriteLn(f2,s);
  end;
  Close(f2);
  Close(f1);
end.

[ponchikpk]

Serge_Bliznykov спасибо большое!!!:* :D