Склонение фамилий по падежам

Var s,f:string;
Begin
Writeln('Введите фамилию, заканчивающуюся на -ов');
Readln(f);
Writeln('Введите вопрос');
Readln(s);
if s='кто' then f:=f else
 if s='кого' then f:=f+'a' else
  if s='кем' then f:=f+'ым' else
   if s='кому' then f:=f+'у';
Writeln(f);
End.

Var s,f:string;
  fc : integer;
Begin
Writeln('Введите фамилию, заканчивающуюся на -ов');
Readln(f);
repeat
  Write('Введите вопрос (кто, кого, кем, кому): ');
  Readln(s);
  fc := ord(s='кто') + 2*ord(s='кого')  + 3*ord(s='кем') + 4*ord(s='кому');
  if fc=0 then
    WriteLn('Вы неправильно ввели вопрос! Попробуйте ещё раз!')
until fc<>0;
 
case fc of
  1: begin { ничего не делаем, можно убрать эту строчку } end;
  2: f:=f+'a';
  3: f:=f+'ым';
  4: f:=f+'у';
end;
WriteLn(f);
end.