Задано существительное 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.