Problem z czasem kompilacji

Mam pewien problem z kompilacja programu.
Otóż napisałem program, który wypisuje n pierwszych wyrazów ciągów arytmetycznego dla podanych r i a1.
Problem polega na tym że jak chce skompilować program to kompilator się na chwile wiesza i po około 30 sek program zostaje skompilowany i odpala się w konsoli. Gdy zamknę konsole i próbuje ponownie go skompilować jest ok, ale wystarczy że zmienię chociaż 1 znak w kodzie i robi się to samo.

Oto kod programu:

program Project2;

{$APPTYPE CONSOLE}

uses
sysutils;

var
 i,n1,r1,kod: Integer;
 a:array[0..1000] of Integer;
 n,x,r: String;

procedure odstep;
begin
  writeln('***************************************************************');
end;

begin
  writeln('Program wyswietla n kolejnych wyrazow ciagu arytmetycznego');
  odstep;
  write('Podaj ilosc wyrazow n: ');
  repeat
    readln(n);
    val(n,n1,kod);
      if (kod<>0) or (n1<=0) or (n1>1000) then
        begin
          writeln('Bledne dane');
          writeln;
          write('Podaj prawidlowa ilosc wyrazow n: ');
        end;
  until (kod=0) and (n1>0) and (n1<=1000);
  odstep;
  write('Podaj pierwszy wyraz a[1]: ');
  repeat
    readln(x);
    val(x,a[1],kod);
      if (kod<>0) or (a[1]<0) or (a[1]>20) then
        begin
          writeln('Bledne dane');
          writeln;
          write('Podaj jeszcze raz pierwszy wyraz: ');
        end;
  until (kod=0) and (a[1]>=0) and (a[1]<=20);
  odstep;
  write('Podaj roznice r: ');
  repeat
    readln(r);
    val(r,r1,kod);
      if (kod<>0) or (r1<-10000) or (r1>10000) then
        begin
          writeln('Bledne dane');
          writeln;
          write('Podaj prawidlowa roznice r: ');
        end;
  until (kod=0) and (r1>=-10000) and (r1<=10000);
  odstep;
    i:=1;
    writeln('a[',i,']=',a[i]);
    for i:=2 to n1 do
      begin
       a[i]:=a[i-1]+r1;
       writeln('a[',i,']=',a[i]);
      end;
  odstep;
  readln;
end.

Jaki kompilator/komputer i kiedy to się zaczęło.
Czy w innych kodach jest tak samo?

Mam podobny problem przy kompilacji VCL również. Nie za każdym razem jest zamrożenie, ale jest i nie na 30 sekund tylko zwykle nieco krócej. Zrobiło się to samo z siebie i nagle. Nie pomogła reinstalacja Delphi, a winny nie wiem nagle dlaczego stał się Kaspersky Anti Virus 2010. Nie mając ochoty na reinstal systemu i dalsze kombinacje by inaczej rozwiązać ten problem. Po prostu kiedy piszę większy projekt i co chwilę kompiluję po zmianach to na ten czas wyłączam Kasperskiego. Mam Windows 7, pod XP z KAV 2009 nie było takich cyrków, a miałem wtedy nieporównywalnie do obecnego słabszy komputer. Być może w Twoim przypadku również problem tkwi w jakimś antywirusie działającym w tle, który zbyt nadgorliwie analizuje kompilowany dopiero co exek w trakcie jego tworzenia. Dodam, że u mnie nie zawsze tak zamuli i robi to głownie gdy tworzę projekt w VCL, ale dla oszczędzenia sobie nerwów, jak raz przymuli po prostu wyłączam KAV do czasu aż nie skończę pisania czy poprawiania projektu. Później o konieczności włączenia antywirusa przypomina mi ikonka Centrum Zabezpieczeń w trayu. Używam D7.

Winny jest Kaspersky i jego sprawdzanie nowozmodyfikowanych aplikacji.

Na początek wyłącz ochronę proaktywną albo nazywa się to "kontrola aplikacji". Ewentualnie wyłącz całą ochronę kasperskiego (lub innego antywirusa).

Racja winny był kaspersky ;)
Wyłączyłem antywira i wszystko ok ;)
Dzięki bardzo

Dzięki Opi'emu wiem, że można spróbowac z tą ochroną proaktywną. Jednak co ciekawe, długo miałem takie na pewno same ustawienia KAV 2010 jak zawsze, dopiero po jakimś czasie nagle zaczął tak zamulać, a aktualizowałem jedynie bazy wirusów, a nie sam program. Moze jednak coś zostało zaktualizowane też z komponentów programu i programiści Kasperskyego coś "przemodzili" w kierunku większej upierdliwości swojego antywirusa. Jednak u mnie te "zamrożenia" nie zawsze mają miejsce.