Работа с файлами

[NightFire]

никогда не доводилось работать с файлами в Паскале.Нужна помощь.
ЗАДАЧА:
Считать текстовый файл,удвоив все буквы А.Результат записать в другой текстовый файл.

[r9m]

А как понять "удвоив"? Перевести в другой регистр? Помножить ординалы на 2? Ничё короче не ясно (

[__STDC__]

вероятно вместо "a" сделать "aa"

[NightFire]

вместо "А" получить "АА"

[Tkirill]

uses crt;
var
s:string;
i:integer;
fil,f:text;
begin
clrscr;
assign(fil,'c:\in.txt');
reset(fil);
assign(f,'c:\out.txt');
rewrite(f);
while not eof(fil) do
 begin
 readln(fil,s);
 i:=1;
 while i<=length(S) do
 if s[i]='a' then begin insert('a',s,i); i:=i+2; end
 else i:=i+1;
 writeln(f,s);
 end;
close(fil);
close(f);
readln;
end.

[NightFire]

Tkirill,спасибо огромное,выручил!!!