да в том то и дело что понимаю как делать а написать программу не получается((((((Добавлено (19.02.2008, 15:11)
---------------------------------------------
program wtf2;
var st:char;
i,j:integer;
tmp:array [0..1000] of char;
F:file of char;
begin
assign(F,'EXAMPLE.txt');
{$I-}
reset(F);
{$I+}
if IOResult<>0 then
begin
writeln('ow s otkr f');
halt
end;
while i<>Filesize(F)*2 do
begin
read(F,st);
tmp[i]:=st;
tmp[i+1]:=st;
i:=i+2;
end;
close(F);
rewrite(F);
for j:=0 to i do
begin
write(f,tmp[i]);
end;
close(F);
end.
Добавлено (19.02.2008, 16:05)
---------------------------------------------
что не правильно???
