Заменить в строке слово на заданное слово — Pascal(Паскаль)

var
a,s:string;
i:integer;
begin
writeln('vvedite stroku');
readln(a);
a:=' '+a+' ';
for i:=length(a) downto 1 do
if copy(a,i,8)=' привет ' then
begin
delete(a,i+1,6);
insert('прива',a,i+1);
end;
writeln(a);
end.