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

Добрый день!Данный вопрос был недавно рассмотрен.var a: string;beginwrite ('Введите слово: '); 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.