Компиляции программы

[triest]

Программа не компилируется. Помогите найти ошибку! Очень надо!


uses windows,messages;
Var
timeintvecrocedure;
counter,chet,year,day_of_week,month ,day,hour,minute,second,milisecond, day1,month1,year1,hour1,minute1:wor d;
fil:text;
sobitie:string;

Procedure int08;
const
seconds=60;
Begin
inline($8); { 18.6 raz v secundu,prerivanie taimera}
timeintvec;chet:=chet+1; {nakaplivaem prerivanie taimera 60*18.6}
if chet=1116 then begin chet:=0; {sbrasivaem scetchik}
gettime(hour,minute,second,miliseco nd);{poluchaem vrema}
getdate(year,month,day,day_of_week) ; {poluchaem datu}
assign(fil,'d:\f1.txt');
reset(fil); {otkrivaem fail sobitii}
while not eof(fil) do
begin
readln(fil,year1,month1,day1,minute 1,sobitie); {schitivaem daty,vremi,sobitia po strokam}
if year1=year then
if month1=month then
if day1=day then
if hour1=hour then
if minute1=minute then {sravnivaem s tekychei datoi,esli sovpadaet,to vivodim sobitie}
writeln(sobitie); {vivod sobitia}
end;
close(fil);
end; end;
BEGIN
counter:=0;
gettime(hour,minute,second,miliseco nd);{poluchaem tekushee vrema}
getdate(year,month,day,day_of_week) ; {poluchaem tekushuu daty}
assign(fil,'d:\f1.txt'); {svizivaem failovuu peremennuu s failon}
reset(fil);
while not eof(fil) do
begin
readln(fil,year1,month1,day1,minute 1,sobitie); {shitivaem po strokam daty,vremi i sobitie iz faila}
if year1=year then
if month=month1 then
if day1=day then
if hour1=hour then
if minute1=minute then
writeln(sobitie);
end;
close(fil);
getintVec($8,@timeintVec); {poluchenii vectora }
setIntVec($8,addr(int08)); {ustanovka vectora}
keep(0); end.

[Alex11223]

Ошибка-то в чем проявляется? Что пишет?
И используйте тег [CODE] (значок #) для сохранения форматирования и подсветки кода в сообщении.

[mss]

Вся программа - одна большая сплошная ошибка.
Работать это не будет вообще.

[triest]

Хм. Приведите пример резидента под windows.

[mss]

пример резидента под windows

"Резидент под Windows" - это полная ерунда.
ЛЮБАЯ программа под Windows может, если угодно, с полным правом быть названа "резидентом".

[triest]

Хорошо. Привер программы с обработкой прерываний под windows.

[mss]

Делфи для этого не подходит - приложения в Windows не имеют привелегий для работы с системой прерываний.

[maxionans]

маразм преподов крепчает, да?