Ускорение кода

[Kvarts]

есть код

var x1,x2,x3,n,i,h,m,y1,y2,y3, A,B,S: integer; 
box,boy:array of integer;
begin 
  m:=0;
  readln(n);
  SetLength(box,n);
  SetLength(boy,n);
  readln(x1,y1);
  readln(x2,y2);
  readln(x3,y3);
  h:=0;
  S:=(x1-x3)*(y2-y3)-(x2-x3)*(y1-y3);
    while h < n do
    begin
     readln(box[i],boy[i]);
    h:=h+1;
    for i:=0 to n-1 do
    A:=(box[i]-x3)*(y2-y3)-(x2-x3)*(boy[i]-y3);
    for i:=0 to n-1 do
    B:=(x1-x3)*(boy[i]-y3)-(box[i]-x3)*(y1-y3);
    if (S<0) and (S<=A) and (A<=0) and (S<=B) and (B<=0) or
       (S>0) and (S>=A) and (A>=0) and (S>=B) and (B>=0) then
       m:=m+1
    else
       m:=m+0
    end;
      writeln(m);
end.

времени исполнения 1,09 секунду
необходимо что бы было менее 1 секунды
______________________
Используйте тег [CODE] (кнопка с решеткой # в форме сообщения) при вставке кода на форум.

[Alex11223]

Сообщение от Kvarts

компилируется за 1,09 секунду

Вы точно понимаете что такое компиляция?

[Kvarts]

не совсем, вероятно

[Kvarts]

я не уверен что смогу объяснить, как это все работает, т.к. в паскале не шарю
данный код франкенштейн слеплянный из трех других

[digitalis]

Работать оно не может в принципе.

readln(box[i],boy[i]);

Чему тут равно i ? Куда будет readln(box[i], ? Надеяться, что все переменные при загрузке обнулены - не стоит, это никем не гарантируется.
Даю бесплатный совет: обратиться к тому, кто шарит в Паскале, стоить это будет совсем недорого - я знаю одного gaev43@inbox.ru, у него такса демократичная

  m := m + 0

Мощно !

[Black Fregat]

Лучше саму задачу опубликуйте

[digitalis]

Болшоооой секрет !