Заменить каждую букву «а» предшествующем символом. Если буква «а» первая, то заменить ее на последнюю — Pascal(Паскаль)

uses crt;
var st:string;
i:integer;
 
begin
 clrscr;
 write('-> ');
 readln(st);
 if st[1]='a' then st[1]:=st[length(st)];
 for i:=2 to length(st) do if st[i]='a' then st[i]:=st[i-1];
 writeln(st);
 readln;
end.