program Padegi1;
var
  wrd: string; {исходное слово}
  postfix: string; {окончание}
 
(*----------------------------------------
Процедура склоняет слово 1-го
склонения (ж.р., окончание на "а"-"я")
по падежам
Исходное слово - в им.п.
----------------------------------------*)
procedure Padeg (w: string);
var
  postfix: string;
begin
  postfix := copy (wrd,length(wrd),1);
  delete(wrd,length(wrd),1);
  case (postfix[1]) of
  'а': begin
  writeln('И.п. - ',wrd,'а');
  writeln('Р.п. - ',wrd,'у');
  writeln('Д.п. - ',wrd,'е');
  writeln('В.п. - ',wrd,'у');
  writeln('Т.п. - ',wrd,'ой');
  writeln('П.п. - ',wrd,'е');
 end;
 'я': begin
  writeln('И.п. - ',wrd,'я');
  writeln('Р.п. - ',wrd,'ю');
  writeln('Д.п. - ',wrd,'е');
  writeln('В.п. - ',wrd,'ю');
  writeln('Т.п. - ',wrd,'ей');
  writeln('П.п. - ',wrd,'е');
  end;
  end;
end;
 
begin
  writeln('Программа склоняет слово 1-го склонения по падежам');
  repeat
  writeln('Введите исходное слово 1-го склонения в '+
  'именительном падеже (например, "корова"): ');
  readln(wrd);
 postfix := copy(wrd,length(wrd),1);
 if (postfix<>'а')and(postfix<>'я') then
  writeln('Ошибка! Слово 1-го склонения должно иметь окончание "а" или "я"');
  until (postfix='а')or(postfix='я');
  writeln('Склонение слова "',wrd,'":');
  Padeg(wrd);
  writeln('Нажмите [Enter] для завершения программы');
  readln;
end.

---