готов лаби 4 курс 1 сим / цеом / ceom6

Program ceom6;

uses sysutils,windows,math;

const N=1000000;

type
BigArray=array [0..N] of integer;

var
MyBigArray:^BigArray;

function MyThread(p:pointer):PtrInt;
var q:^LongInt;
i:LongInt;
x:single;
a,b:integer;
begin
a:=10; x:=0;
q:=p;
writeLn('My number is: ',q^);
i:=q^;
q^:=0;
while i<N do
begin
x:=MyBigArray^[i]/(sqr(MyBigArray^[i])+1);

q^:=(q^+round(x)) and $FF;
i:=i+2;
end;
end;

function MyThread2(p:pointer):PtrInt;
var q:^LongInt;
i,MAX:LongInt;
x:single;
a,b:integer;
begin
a:=4; x:=0;
q:=p;
writeLn('My number is: ',q^);
i:=q^*(N div 2);
MAX:=i+(N div 2);
q^:=0;
while i<MAX do
begin
x:=MyBigArray^[i]/(sqr(MyBigArray^[i])+1);
q^:=(q^+round(x)) and $FF;

i:=i+1;
end;
end;


Var q1,q2:LongInt;
ID1,ID2:TThreadID;
T,k,ty:LongInt;

Begin
new(MyBigArray);
if MyBigArray<>nil then
begin
randomize;
for T:=0 to N do MyBigArray^[T]:=random(100);
Write('Vvedit potochnist (0-odin,1-dva potoki):');
ReadLn(k);
Write('Vvedit tip rozrahunkiv (0-cherez odin,1-po polovine):');
ReadLn(ty);
q1:=0; q2:=1;
T:=GetTickCount();
if(k=0)then
begin
if(ty=0) then
begin
ID1:=BeginThread(@MyThread,@q1);
WaitForThreadTerminate(ID1,100000);
ID2:=BeginThread(@MyThread,@q2);
WaitForThreadTerminate(ID2,100000);
end else begin
ID1:=BeginThread(@MyThread2,@q1);
WaitForThreadTerminate(ID1,100000);
ID2:=BeginThread(@MyThread2,@q2);
WaitForThreadTerminate(ID2,100000);
end;
end else begin
if(ty=0)then begin
ID1:=BeginThread(@MyThread,@q1);
ID2:=BeginThread(@MyThread,@q2);
WaitForThreadTerminate(ID1,100000);
WaitForThreadTerminate(ID2,100000);
end else begin
ID1:=BeginThread(@MyThread2,@q1);
ID2:=BeginThread(@MyThread2,@q2);
WaitForThreadTerminate(ID1,100000);
WaitForThreadTerminate(ID2,100000);
end;
end;
WriteLn('The task performed by: ',GetTickCount()-T,' ms');
dispose(MyBigArray);
end else
begin
writeln('Error allocation the memory!');
end;
End.