Задано существительное первого склонения, оканчивающееся на «а». Напечатайте это слово во всех падежах — Pascal(Паскаль)

uses crt;
var st:string;
 
begin
 clrscr;
 write('-> ');
 readln(st);
 writeln('И.п. - ',st);
 delete(st,1,length(st));
 writeln('Р.п. - ',st,'ы');
 writeln('Д.п. - ',st,'е');
 writeln('В.п. - ',st,'у');
 writeln('Т.п. - ',st,'ой');
 writeln('П.п. - ',st,'е');
 readln;
end.