FREEPASCAL Zongora, hogyan oldjam meg?

Addig eljutottam,hogy minden egyes lenyomott billentyűre más más hangot adjon,de a feladat az,hogy ha pl. a helyett A-t nyomok,akkor hosszan szóljon.Tudtok segíteni? Itt a kódom:

program zongora;

uses crt;

var r:word;

t:word;

ch:char;

BEGIN

r:=0;

repeat

if keypressed then begin

ch:=readkey;

case ch of

'a': r:=278;

's': r:=293;

'd': r:=330;

'f': r:=371;

'g': r:=418;

'h': r:=440;

'j': r:=495;

'k': r:=557;

'l': r:=600;

'p': r:=0;

end;

sound(r);

delay(350);

nosound;

end;

until ch='o';

readln;

end.

Köszi