[fpc-pascal] How can I write a multithread program as simple as possible?

[Géza Kovacs Géza]

Hi!

I read the Wiki about this article, it's looks like very complicated for me. :-(
Can anybody show me a very simple example?
Below is a code, i would like to run it multithread both under Windows
and Linux.

Program Sorting;
const
	n = 999000;
var
	data : array [1..n] of integer;
	i, j, t: LongInt;
begin
		for i := 1 to n do
			data[i]:=random(32768);
		for i := 1 to n-1 do
		begin
			for j:=i+1 to n do
			begin
				if data[i]<data[j] then
				begin
					t:=data[i];
					data[i]:=data[j];
					data[j]:=t;
				end;
			end;
		end;
end.

Best regards, G