Ильгиза

Здравствуйте!
Дан текстовый файл, необходимо в начало строки close, написать комментарий '{закрытие файла}' и вывести получившийся файл.
эта часть программы работает отлично, но еще необходимо найти номер строки , куда вставляется этот комментарий, я сделала так, но почему то программа не работает.
Пожалуйста , помогите найти ошибку!
Заранее благодарю!!!

program upr1;
Var
f1,f2:Text;
s,s1,s2:String; k:integer;
Begin
s1:='{ çàêðûòèå ôàéëà }';
s2:='close';
Assign(f1,'ilgiza.txt');
Reset(f1);
Assign(f2,'ilgiza2.txt');
Rewrite(f2);
Repeat
Readln(f1,S);
If Pos(s2,S)=0 then
Writeln(f2,S)
else
Writeln(f2,S1+S);
Until eof(f1);
Close(f1);
Close(f2);
reset(f2);
k:=0;
while not eof(f2)do begin
readln(f2,s);
writeln(s);
end;
while s<>s1 do k:=k+1;
close(f2);
writeln(k);
End.



мой вариант текстового файла.

program upr1;
var f:file of real;
x,h,fx:real;
begin
assign(f,'func.dat');
rewrite(f);
x:=0.5;
h:=0.2;
while (x<=2.5) do begin
fx:=exp(ln(1+sqr(x))/3);
write(f,x);
write(x:5:3);
x:=x+h;
write(f,fx);
writeln(fx:8:4);
end;
writeln('файл записан');
close(f);
end.

Vladimir_S

Исправил.
Главная ошибка - это то, что Вы забыли, что искомая строка изменилась (добавился комментарий), а поиск осуществляется по исходному тексту. Исправил.
Кроме того, две мелочи-рекомендации:
1. По возможности, НЕ пользуйтесь кириллицей: сами видите, к чему это приводит - текст программы набран в кодировке UTF, в результате имеем крякозябры.
2. Ну применяйте Вы форматирование листингов (отступы, "лесенки" и т.п.): так неудобно читать программу, когда она вся в столбик!
Вот что получилось (проверено, естественно):

Ильгиза

Спасибо Вам огромное!!!!!