program ideone;
 
{$MODE OBJFPC}{$LONGSTRINGS ON}
 
uses
  SysUtils;
 
  procedure ShowComponents(const ALine: String);
  var
    strLine: String;
    pchrComp: PChar;
  begin
    strLine := StringReplace(ALine, ' ', #0, [rfReplaceAll]) + #0;
    pchrComp := @strLine[1];
 
    while pchrComp^ <> #0 do
    begin
      WriteLn('"', StrPas(pchrComp), '"');
      pchrComp += StrLen(pchrComp) + 1;
    end;
  end;
 
begin
  ShowComponents('p123 1000.02 1000.01');
end.
 

cHJvZ3JhbSBpZGVvbmU7Cgp7JE1PREUgT0JKRlBDfXskTE9OR1NUUklOR1MgT059Cgp1c2VzCiAgU3lzVXRpbHM7CgogIHByb2NlZHVyZSBTaG93Q29tcG9uZW50cyhjb25zdCBBTGluZTogU3RyaW5nKTsKICB2YXIKICAgIHN0ckxpbmU6IFN0cmluZzsKICAgIHBjaHJDb21wOiBQQ2hhcjsKICBiZWdpbgogICAgc3RyTGluZSA6PSBTdHJpbmdSZXBsYWNlKEFMaW5lLCAnICcsICMwLCBbcmZSZXBsYWNlQWxsXSkgKyAjMDsKICAgIHBjaHJDb21wIDo9IEBzdHJMaW5lWzFdOwoKICAgIHdoaWxlIHBjaHJDb21wXiA8PiAjMCBkbwogICAgYmVnaW4KICAgICAgV3JpdGVMbignIicsIFN0clBhcyhwY2hyQ29tcCksICciJyk7CiAgICAgIHBjaHJDb21wICs9IFN0ckxlbihwY2hyQ29tcCkgKyAxOwogICAgZW5kOwogIGVuZDsKCmJlZ2luCiAgU2hvd0NvbXBvbmVudHMoJ3AxMjMgMTAwMC4wMiAxMDAwLjAxJyk7CmVuZC4K