var

  Word: String;  // Kelimeyi saklamak için bir değişken

  Counter, TempChar: Integer;

  // Kelimeyi tanımlıyoruz

  ShowMessage( 'Merhaba');

  // Kelimeyi ters çevirmek için, ilk ve son harfi yer değiştirelim

  for Counter := 1 to Length(Word) div 2 do

    TempChar := Ord(Word[Counter]);

    Word[Counter] := Word[Length(Word) - Counter + 1];

    Word[Length(Word) - Counter + 1] := Chr(TempChar);

  // Sonucu ekranda göster

  ShowMessage('Ters çevrilmiş kelime: ' + Word);