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.
Основной момент, это удаление окончания путем копирования слова в строке a начиная с первого символа, до длины слова минус 1 символ.
Ване не стоит брать диски 2 и 3. Потому что:
2 диск требует ЦП с тактовой частотой 2 Ггц, нежели на его компьютере стоит ЦП с тактовой частотой 1.7 Ггц.
3 диск требует ОЗУ 512 Мбайт, а на его компьютере используется всего 256 Мбайт.