Вставить на указанную позицию символ «*».

[vaako]

Дан типизированный файл состоящий из букв латинского алфавита. Вставить на указанную позицию символ «*».

[BDA]

Uses CRT;
var
f1:file of char;
a,i:integer;
c:char;
BEGIN
assign(f1,'in.txt');
reset(f1);
repeat
	writeln('Input position:');
	readln(a);
until a<filesize(f1);

seek(f1,filesize(f1));
c:='*';
write(f1,c);

for i:=filesize(f1)-1 downto a+1 do
begin
	seek(f1,i-1);
	read(f1,c);
	write(f1,c);
end;
seek(f1,a);
c:='*';
write(f1,c);
close(f1);
END.

Нумерация позиций с нулевого.