devi spostare la procedura prima della parola chiave end. ( end seguito da punto, che indica la fine della unità) e dopo la parola imlementation (che identifica l'inizio delle definizione delle funzioni e delle procedure)

codice:
...
implementation

...
procedure Tdate.setvalue (m,d,y:integer);
begin
  month := m;
  day := d;
  year : y;
end;

...

end.