Задано существительное 1-го склонения,оканчивающееся  на "а".Составьте программу,позволяющую вывести на экран это слово во всех падежах

Добрый день! Данный вопрос был недавно рассмотрен. var a: string; begin write ('Введите слово: '); read (a); writeln ('Именительный падеж: ',copy(a,1,length(a))); writeln ('Родительный падеж: ',copy(a,1,length(a)-1),'ы'); writeln ('Дательный падеж: ',copy(a,1,length(a)-1),'е'); writeln ('Винительный падеж: ',copy(a,1,length(a)-1),'у'); writeln ('Творительный падеж: ',copy(a,1,length(a)-1),'ой'); writeln ('Предложный падеж: ',copy(a,1,length(a)-1),'е'); end.