Pascal/Turbo Pascal - Programa en Pascal complicado

Deseo hacer un programita que muestre torneo round robin, tengo este codigo en delphi...como puede adaptarse para pascal? o como puede hacerse uno en pascal basado en esta idea?

{A qui tienes para pascal 7 }

uses
crt;

const
MaxTeams = 100;
MaxRounds = MaxTeams;
MaxGames = (MaxTeams+1) Div 2;
Home = 1;
Away = 2;
Bye : Integer = -1;

type
TGameAry = Array[1..MaxTeams] of Integer;
TRoundRobinAry = Array[1..MaxRounds,1..MaxGames,Home..Away] of Integer;

var
tro : TRoundRobinAry;
i1,i2,i3 : integer;

procedure CreateRoundRobin(var RoundRobinAry: TRoundRobinAry;
const Teams : Integer);
var
GameAry : TGameAry;
Half,
Rounds,
Bottom,
SwitchBottom,
TempGameValue,
i, ii, iii : Integer;
begin
For i := 1 to MaxRounds do
For ii := 1 to MaxGames do
For iii := 1 to 2 do
RoundRobinAry[i][ii][iii] := 0;
IF (Teams = MaxTeams) Then
exit;
For i := 1 to Teams do
GameAry[i] := i;
if Teams < 0 then
For i := (Teams+1) to MaxTeams do
GameAry[i] := 0;
Half := (Teams-1) Div 2;
IF ((Teams Mod 2)=0)
Then Begin
Rounds := Teams - 1;
Bottom := Teams - 2;
SwitchBottom := Bottom + 1;
End
else Begin
Rounds := Teams;
Bottom := Teams - 1;
SwitchBottom := Teams;
end;
for i := 1 to Rounds do
begin
for ii := 1 to Half do
begin
RoundRobinAry[i][ii][Home] := GameAry[ii];
RoundRobinAry[i][ii][Away] := GameAry[Bottom-ii+1];
end;
If ((Teams - Bottom) = 2)
then begin
if i mod 2 = 0
then begin
RoundRobinAry[i][Half+1][Home] := GameAry[SwitchBottom];
RoundRobinAry[i][Half+1][Away] := GameAry[Bottom+2];
end
else begin
RoundRobinAry[i][Half+1][Away] := GameAry[SwitchBottom];
RoundRobinAry[i][Half+1][Home] := GameAry[Bottom+2];
end
end
else begin
RoundRobinAry[i][Half+1][Home] := GameAry[SwitchBottom];
RoundRobinAry[i][Half+1][Away] := Bye;
end;

TempGameValue := GameAry[SwitchBottom];
for ii := SwitchBottom downto 2 do
GameAry[ii] := GameAry[ii-1];
GameAry[1] := TempGameValue;
end;
end;

begin
clrscr;
CreateRoundRobin(TRo,4);
for i1 := 1 to 3 do
begin
for i2 := 1 to 3 do
begin
for i3 := 1 to 3 do
write(' ',tro[i1,i2,i3]);
writeln;
end;
writeln;
end;
readkey;
end.

Gracias, lo he probado...pero solo me muestra unos valores al ejecutar...¿como puedo implementar la idea para generar el round robin de 20 jugadores? lo que necesito es algo como lo que se hace en este vinculo:

http://www.devenezia.com/downloads/round-robin/index.html pero en pascal...