Никак не могу понять почему он выполняет неправильно. Он сначала вроде как виснет, a потом появляется файл "А111" за 30Мбайт. Что это?
Посмотрите и если увидите ошибку скажите, пожалуйста.
type myfile=text;
var f,f1:myfile;
i,k:byte;
c:real;
w:word;
ch:string;
erccode:integer;
begin
assign(f,'C:дзадa.txt');
reset(f);
Assign(f1,'C:дзадa111.txt');
Rewrite(f1);
while not eof(f) do
begin
read(f,ch);
k:=0;
for i:=1 to length(ch) do
if (ch[i] in ['0'..'9']) then
inc(k);
if k=length(ch) then
begin
val(ch,c,erccode);
w:=round©;
str(w,ch);
write(f1,ch)
end;
if not(ch[i] in ['0'..'9']) then
write(f1,ch[i]);
writeln(f1)
end;
close(f);
close(f1);
erase(f);
rename(f1,'a.txt')
end.
Сообщение отредактировано: volvo -