RosettaCodeData/Task/Soundex/Delphi/soundex.delphi

program SoundexDemo;

{$APPTYPE CONSOLE}

uses
    System.StrUtils;

begin
    Writeln(Soundex('Ashcraft'));
    Writeln(Soundex('Tymczak'))
end.