Formula Value

Hi

  I have below formula . I want  if Amount is + ve then 'Debit' , if -ve than 'Credit' , if  0 then '' in another column.

WhilePrintingRecords;
CurrencyVar Amount;
Amount := Amount + {spGeneralLedger0;1.Debit} - {spGeneralLedger0;1.Credit};

Thanks