Выход из программы по нажатию клавиши — Pascal(Паскаль)

program asd;
uses crt;
var
ch:char;
done:boolean;
begin
ch:=readkey;
case ch of
#68: done:=true;
end;
end.