Э) Есть ешё проблемка помогите. Прога должна читать с файла текст и там где встечаетса буква а дописать после нее букву к и результат вписать в другой файл.
program p1;
var stroka:string;
i:integer;
f1,f2:text;
begin
assign(f1,'c:\input.txt');
reset (f1);
read (f1,stroka);
close(f1);
for i:=1 to length(stroka) do
if stroka='a' then
begin
insert ('k',stroka,i+1);
end;
begin
assign (f2,'c:\output.txt');
rewrite (f2);
write (f2,stroka);
close (f2);
end;
end.
файлы не находит пробывал и просто в папку кидать и путь не указивать хз шо с ними делать падскажите плз!!