uses
  Graph, Crt;

procedure tapenter(line:byte);
const atts:array[1..20] of byte=(darkgray,green,lightgreen,white,lightgreen,
                                green,darkgray,blue,lightblue,lightcyan,
                                white,lightcyan,lightblue,blue,darkgray,
                                red,lightred,white,lightred,red);
var ch:char;
    x :byte;
begin
  repeat
    for x:=1 to 20 do begin
      if not keypressed then begin
        gotoxy(35,line);
        textattr:=atts[x];
        write(' Press ENTER ');
        delay(100);
      end;
    end;
    if keypressed then ch:=readkey;
  until ch=#13;
end;

begin
  clrscr;
  tapenter(25);
end.