RosettaCodeData/Task/Soundex/Delphi/soundex.delphi

program SoundexDemo;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  StrUtils;

begin
  Writeln(Soundex('Soundex'));
  Writeln(Soundex('Example'));
  Writeln(Soundex('Sownteks'));
  Writeln(Soundex('Ekzampul'));
  Readln;
end.