memnformat data menggunakan unit Tformat

var 

begin
  { Ask the user to supply a date and place it into ShortDateFormat variable }
  WriteLn('Enter the desired format (ex. dd/mm/yyyy):');
  ReadLn(ShortDateFormat);
 
  { Write the date on the console using the selected short date format }
  WriteLn('Current date is ', DateToStr(Date()));
  
readln;
end.

masih error ini.. maaf ya.. kmu bisa kasih contoh gmn membaca format tanggal?