отладить программу

[Антонова Евгения]

Тема 8: «Текстовые файлы»
Задача 8.
Скопировать текстовый файл в новый файл, перенести в него только те строки, в которых встречаются русские буквы, и указав после каждой строки количество русских букв в ней.




program y;
uses crt;
var s: string;
i,k:integer;
f:file of integer;
f1:text;
begin
assign(f,'c:\f.dat');
assign(f,'c:\99.txt');
rewrite(f);
reset(f1);
writeln(s,'vvedite text');
readln(s);
k:=0;
while not eof(f1) do begin
readln(f,s);
writeln(s);
for i:=1 to length(s) do begin
if (s[i]>='a') and (s[i]<='ia') then k:=k+1;
end;
writeln(f1,k);
readln;
close(f);
close(f1);
end.

[prof_gaming]

program y;
uses crt;
var s: string;
i,k;integer;
f:file of integer;
f1:text;
begen
assign(f1,'c:\f.dat');
assign(f,'c:\99.txt');
rewrite(f);
reset(f1);
k:=0;
while not eof(f1) do begin
readln(f1,s);
writeln(s);
for i:=1 to length(s) do begin
if (s[i]>='а') and (s[i]<='я') then begin k:=k+1; {- kolvo} writeln(f1,s[i]); end; end;
end;
readln;
close(f);
close(f1);
end.

[Антонова Евгения]

спасибо, выручили)