Э) Есть ешё проблемка помогите. Прога должна читать с файла текст и там где встечаетса буква а дописать после нее букву к и результат вписать в другой файл.
program p1;
var stroka:string;
    i:integer;
    f1,f2:text;
begin
assign(f1,'c:\input.txt');
reset (f1);
read (f1,stroka)...