RosettaCodeData/Task/Soundex/Delphi/soundex.pas

program SoundexDemo;

{$APPTYPE CONSOLE}

uses
    System.StrUtils;

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