Verified answer

Ответ:

uses

 Windows;

var

 a, b, w: AnsiString;

 c: AnsiChar;

begin

//  SetConsoleCP(866);        // эти две команды если на консоли не будет русских букв

//  SetConsoleOutputCP(866);

 WriteLn ('Введите два слова: ');

 ReadLn (a);

 ReadLn (b);

 if a > b then

   w := a

 else

   w := b;

 c := w [Length (w)];

 WriteLn (c);

  ReadLn;

end.