Pascal/Turbo Pascal - de nuevo yo, necesito ayuda con un programa

Wenas, vuelvo a pedir su ayuda : )...
esque necesito hacer un programa que, mediante un procedure, compare dos arrays (vectores) y me diga cual es el mayor.
Muchas gracias de antemano y felicitaciones por esta gran web...

Esta función compara dos Array's previamente definidos, los que llamaremos Array1 y Array2, cuyo índiice varía desde 1 hasta el tope.

{ Compara dos Array's. Devuelve: -1 si Array1<Array2, 0 si son iguales }
{ y 1 sin Array1>Array2 }
Function CompArray(Var Array1, Array2 :Tipo_pre_Definido) :Integer;
Var
Index :Word;
Begin
Index := 1;
Repeat
Result := 0;
If (Array1[Index]>Array2[Index]) then
Result := 1
Else
If (Array1[Index]<Array2[Index]) then
Result := -1;
Inc(Index);
Until (Result<>0) or (Index>(SizeOf(Array1) Div SizeOf(Array1[1])));
CompArray := Result;
End; {CompArray}

Cualquier cosa, nos cuentas. Saludos ;-)