Напечатать заданное слово в единственном числе в заданном падеже

const
    MYWORD = 'тетрадь';
var
    gramCase: Byte;
begin
    repeat
        WriteLn('Введите необходимый падеж:');
        WriteLn('1. Именительный');
        WriteLn('2. Родительный');
        WriteLn('3. Дательный');
        WriteLn('4. Винительный');
        WriteLn('5. Творительный');
        WriteLn('6. Предложный');
        ReadLn(gramCase);
    until (gramCase in [1..6]);
    case gramCase of
        1, 4: WriteLn(MYWORD);
        2, 3, 6:
            begin
                if (gramCase = 6)
                then
                    Write('о ');
                WriteLn(Copy(MYWORD, 1, Length(MYWORD) - 1), 'и');
            end;
        5: WriteLn(MYWORD, 'ю');
    end;
end.

const
    MYWORD = 'тетрадь';
var
    gramCase: Byte;
    s:string;
begin
    repeat
        WriteLn('Введите необходимый падеж:');
        WriteLn('1. Именительный');
        WriteLn('2. Родительный');
        WriteLn('3. Дательный');
        WriteLn('4. Винительный');
        WriteLn('5. Творительный');
        WriteLn('6. Предложный');
        ReadLn(gramCase);
    until (gramCase in [1..6]);
    s:=MYWORD;
    case gramCase of
        2, 3: s[length(s)]:='и';
        5: s:=MYWORD+'ю';
        6: Write('о ');
    end;
    WriteLn(s);
end.

  2,3,6: s[length(s)]:='и';
  ...
  end;
  if gramCase=6 then Write('о ');
  ...