Вот такое задание:
В текстовом файле F1.txt задана последовательность символов. Создать текстовой файл F2.txt, из
тех символов этой последовальтености,которые являются буквами латинсого алфавита.
Вот что я написал.
Код
uses
SysUtils;
procedure mypro(const s:string;var str:string);
var i:byte;
begin
str:='';
for i:=1 to length(s) do
if (s[i]>='a') and (s[i]<='z') then str:=str+s[i];
end;
var f1,f2 : textfile;
s,str : string;
begin
assign(f1,'F1.txt');
reset(f1);
while not eof(f1) do
begin
readln(f1,s);
mypro(s,str);
writeln(str);
end;
assign(f2,'F2.txt');
Rewrite(f2,'F2.txt');
writeln(f2,str);
closefile(f1);
closefile(f2);
readln;
end.
SysUtils;
procedure mypro(const s:string;var str:string);
var i:byte;
begin
str:='';
for i:=1 to length(s) do
if (s[i]>='a') and (s[i]<='z') then str:=str+s[i];
end;
var f1,f2 : textfile;
s,str : string;
begin
assign(f1,'F1.txt');
reset(f1);
while not eof(f1) do
begin
readln(f1,s);
mypro(s,str);
writeln(str);
end;
assign(f2,'F2.txt');
Rewrite(f2,'F2.txt');
writeln(f2,str);
closefile(f1);
closefile(f2);
readln;
end.
В каталоге уже лежит файт F1.txt с данными:
qwert1234вава
5656rrr
И создаётся файл F2.txt ,но уже:
rrr
То есть не получается записать все строки в F2. Хотя на экран выводится правильный результат. В чём проблема. Что нужно дописать или изменить? Заранее спасибо!!!
