Доброго времени суток Помогите пожалуйста реализовать задачу с помощью динамических перемнных, т.е. Сначала из файла считываются все данные в память, обрабатываются и оттуда записываются в файл. Ниже дан листинг программы (задание было удвоить в тексте каждую букву в тексте). Заранее благодарен

Приложение:
Program DoubleLitersInTxtFile;
uses CRT;

Procedure OpenTxtFiles(var t1,t2:text);
begin
assign(t1,'text1.txt');
reset(t1);
assign(t2,'text2.txt');
rewrite(t2);
end;

Procedure DoubleLiters(var t1,t2:text; var s:string);
const liters=[65..90,97..122,168,184,192..255];{коды букв по ANSI}
var i:integer;
begin
while not eof(t1) do
begin
readln(t1,s);
i:=1;
while i<=length(s) do
begin
if ord(s[i]) in liters then insert(s[i],s,i+1);
inc(i,2);
end;
writeln(t2,s);
end;
end;

Procedure CloseTxtFiles(var t1,t2:text);
begin
close(t1);
close(t2);
end;

var t1,t2:text;
s:string;
i:byte;
begin
clrscr;
OpenTxtFiles(t1,t2);
DoubleLiters(t1,t2,s);
CloseTxtFiles(t1,t2);
writeln('All liters was doubled. Please press "Enter" to close this session.');
readln;
end.