файлы

[shelest]

дан текстовый файл F и строка S. Переписать в файл G все строки файла F содержащие значения S в качестве подстроки.

procedure TForm1.Button1Click(Sender: TObject);
var
f,g:textfile;
s,s1,s2:string;
i:integer;
begin
s:=edit1.text;// вводим подстроку
memo1.Lines.Clear;
AssignFile (f, 'D:\1.txt');
AssignFile (g, 'D:\Учёба\програмирование\2 семестр\file2\2.txt');
reset (f);
while not EOF (f) do
begin
readln(f,s2);
memo1.Lines.add(s2);//выводим первый файл на печать в котором ищем подстроки
end;
closefile(f);
reset(f);
rewrite(g);
while not EOF (f) do
begin
read (f, s1);
if Pos(s1,s)<>0 then //если позиция вхождения подстроки не равно 0 то записываем строку в файл G
write(g,s);
end;
closefile(f);
closefile(g);
reset (g);
while not EOF (g) do
begin
readln(g,s2);
memo1.Lines.add(s2);//выводим на печать файл G
end;
closefile(g);
end;
end.

помогите найти ошибки

[fenix-elite]

Я бы так сделал.

procedure TForm1.btn1Click(Sender: TObject);
var
f,g:textfile;
s,s1:string;
i:integer;
begin
s:=edt1.text;
mmo1.Lines.Clear;
AssignFile (f, 'C:\in.txt');
AssignFile (g, 'C:\out.txt');
 reset(f);
while not Eof(f) do begin
  Readln(f,s1);
  mmo1.Lines.Add(s1);
  end;

CloseFile(f);
Rewrite(g);

for i:=0 to mmo1.Lines.Count do begin
 if pos(s,mmo1.Lines[i])<>0 then  begin
  Writeln(g,mmo1.Lines[i]);
  mmo2.Lines.Add(mmo1.Lines[i]);
  end;
  end;
  CloseFile(g);

end;
end.

[shelest]

спасибо большое

[Serge_Bliznykov]

 AssignFile (f, 'C:\in.txt');
 reset(f);
while not Eof(f) do begin
  Readln(f,s1);
  mmo1.Lines.Add(s1);
  end;
CloseFile(f);

А ВОТ ЭТО СОВЕРШЕННО ЗРЯ!!
процитированный кусочек кода ПОЛНОСТЬЮ заменяется ОДНОЙ строчкой кода:

mmo1.Lines.LoadFromFile('C:\in.txt')

и ещё вот!

for i:=0 to mmo1.Lines.Count do begin

а вот здесь допущена грубая ошибка!
цикл выдаст exception - выход за пределы! надо крутить цикл до mmo1.Lines.Count - 1

for i:=0 to mmo1.Lines.Count-1 do begin

[fenix-elite]

Serge_Bliznykov, да знаю, что криво написал, за Count вообще стыдно Просто писал в час ночи(по моему времени, взял то что shelest написал и чуть поправил) голова не особо думала уже