Удалить все гласные, заменить буквы «г» и «р» их кодовыми значениями, записать текст в обратном порядке

{Школьник набрал на компьютере реферат. Когда он отлучился, его друзья решили
над ним подшутить: один предложил удалить все гласные, другой - заменить
буквы <г> и <р> их кодовыми значениями, третий - записать текст в обратном
порядке. Какой текст увидит школьник после того, как каждый из друзей
внесет свои исправления в текст? и какой текст будет получен после
применения всех трех вариантов?
(помогите решить задачу)код программы(работа со строками)
}
 
uses
  sysutils;
var
  st,s:string;
  i:integer;
begin
//  s:='Мама мыла раму, а папа гонял на крыше голубей.';
  readln(s);
  writeln(s);
  for i:=length(s) downto 1 do
    if s[i] in ['а','и','о','у','е','ы','А','И','О','У','Е','я','Я','ю','Ю'] then
      delete(s,i,1);
  writeln(s);
  for i:=length(s) downto 1 do
    begin
    if s[i]='р' then
      begin
        delete(s,i,1);
        insert(IntToStr(ord('р')),s,i);
      end;
    if s[i]='г' then
      begin
        delete(s,i,1);
        insert(IntToStr(ord('г')),s,i);
      end;
    end;
  writeln(s);
  st:=s;
  for i:=1 to length(s) do
    st[Length(s)-i+1]:=s[i];
  s:=st;
  writeln(s);
  readln;
end.