Составить программу, которая каждую букву «а», встречающееся в тексте, заменяет на группу символов «ку»(например»ады» — «куда») — Pascal(Паскаль)

program ariiskii_vlastelin;

uses crt;

var
  a: string;
  i: integer;

begin
  clrscr;
  writeln('строку');
  readln(a);
  For i := 1 to length(a) do
  begin
    If copy(a, i, 1) = 'а' then
    begin
      delete(a, i, 1);
      insert('ку', a, i);
    end;
  end;
  writeln(a);
  readln;

end.