program Test; {to test the speed of a repeat loop}
{$APPTYPE CONSOLE}

type a= record
x: extended;
y: extended;
end;

var i,j: integer;
aa: a;
BEGIN
writeln('***********************************************************************');
writeln('*************** Test programma speed Delphi ********** ***************');
writeln('***********************************************************************');
writeln('****** Press a key to start the test program **************************');

for i:= 1 to 100000
do
for j:=1 to 100000 do
begin
aa.x:=i;
aa.y:=j;
end;
writeln;
writeln('Calculation finished');
writeln;
write('Press a key...');
write(' ');
readln;
end.

{remark: I wanted to make an array, but forgot to do this, but never mind}