работа с файлами

[Андрей.12]

var f,f1:text;
i:integer;
s:string;
begin
assign(f,'D:\1.txt');
reset(f);
for i:=1 to 3 do begin
readln(f,s[i]);
if copy(s[i],1,1)='д'then begin
assign(f1,'D:\3.txt');
rewrite(f1);
writeln(f1,s[i]); end;
end;
readln;
end.

нужно чтобы проверялся первый символ каждой строки если он равен д, то записывать всю строку в файл. подскажите ошибку

[Grag]

К сожалению, тут все неверно сделано...

[Пепел Феникса]

1)итоговый файл очищается каждый раз.(каждую запись)
2)читаем всего три строки.
3)что за s[i] в ходе работы?