Выгрузка по нажатию клавиши.

[triest]

Как организовать выгрузку резидента по нажатию клавиши?

$M $800,0,0

uses crt,dos;
const fil1='c:\f1.txt';
type
sob=record
year:0..2200;
year1:0..2200;
month:1..12 ;
month1:0..12 ;
hour:0..23     ;
hour1:0..23     ;
day:1..31;
day1:0..31;
minute:0..59;
minute1:0..59;
sobitie:string[50];
end;
Var
 timeintvec:procedure;
 counter,chet,year,day_of_week,month,day,hour,minute,second,milisecond,day1,month1,year1,hour1,minute1:word;
 fil:text;
 sobitie:string;
 i,j,p:integer;
 dt:array[1..100] of sob;
 {F+}
Procedure int08;
 begin
{
writeln('1');}
 inline($8);   {  18.6 raz v secundu,prerivanie taimera}
{ timeintvec;}chet:=chet+1; {nakaplivaem prerivanie taimera 60*18.6}
 if chet=1116 then writeln('1');
 { reset(fil);  }
 chet:=0;  {sbrasivaem scetchik}
    gettime(hour,minute,second,milisecond);{poluchaem vrema}
  getdate(year,month,day,day_of_week);
  for j:=1 to i do
    begin
   if dt[j].year1=year then
     if dt[j].month1=month then
      if dt[j].day1=day then
         if dt[j].hour1=hour then
           if dt[j].minute1=minute then begin if p=0 then{sravnivaem s tekychei datoi,esli sovpadaet,to vivodim sobitie}
           writeln(dt[j].sobitie);dt[j].year1:=0;
           dt[j].month1:=0;
           dt[j].day1:=0;
           dt[j].hour1:=0;
           dt[j].minute1:=0;  {vivod sobitia}
{ delay(60000);
  delay(60000); }

  sound(659);delay(500);delay(20);
  sound(523);delay(500);delay(20);
  sound(698);delay(500);delay(20);
  sound(587);delay(500);delay(20);
  sound(784);delay(500);delay(20);
  sound(880);delay(500);delay(20);
  sound(988);delay(500);delay(20);nosound;

      end;{close(fil);} end; inline($8);  end;
   { close(fil);  }

{F-}
BEGIN

{ counter:=0;  }  writeln('ww');
 assign(fil,'f1.txt');
 reset(fil);   i:=0;
 while not eof(fil) do
 begin
i:=i+1;
  readln(fil,dt[i].year1,dt[i].month1,dt[i].day1,dt[i].hour1,dt[i].minute1,dt[i].sobitie);
 end;

  for j:=1 to i do
  writeln(dt[j].year1,dt[j].month1,dt[j].day1,dt[j].hour1,dt[j].minute1,dt[j].sobitie);
  close(fil);
  writeln('shitano');

  int08;
  getintVec($8,@timeintVec);{ {poluchenii vectora}
  setIntVec($8,addr(int08));  {ustanovka vectora}