Написать метод для паскаля.Составить программу, которая после введённого с клавиатуры

//Составить программу, которая после введённого с клавиатуры числа от 1 до 99 означает валютную единицу дописывающую слово "копейка" в правильной форме.

begin
var a := ReadInteger;
var c : string;
Assert(a gt;= 1);
Assert(a lt;= 99);
case a of
1, 21, 31, 41, 51, 61, 71, 81, 91: c := 'Копейка';
2..4, 22..24, 32..34, 42..44, 52..54, 62..64, 72..74, 82..84, 92..94: c := 'Копейки';
5..20, 25..30, 35..40, 45..50, 55..60, 65..70, 75..80, 85..90, 95..100: c := 'Копеек';
end;
Writeln(a, ' ', c);
end.