Pascal/Turbo Pascal - ayuda con maximo y minimo procedimiento

Hola:
Necesito ayuda para hallar el máximo y el mínimo, en esta tabla:

Ahora introduzca un procedimiento de nombre limites que devolverá como parámetros por referencia el máximo y el mínimo de la colección. En el programa principal la invocación deberá ser de la forma:
1.
2. (*-- Variables Globales -- *)
3. Var
4. precios1 : Coleccion;
5. min1, max1: real;
6.
7. (*-- Programa Principal -- *)
8. Begin
9. lee_tabla(precios1, TAMCOLECCION);
10. imprime_tabla(precios1, TAMCOLECCION);
11.
12. (* Aquí iría la invocación a limites *)
13.
14. (* Presentación de resultados *)
15. Writeln('El maximo es ', max1:0:1, ' y el mínimo ' , min1:0:1);
16. End.
Y el resultado deberá ser similar a:
Símbolo de MS - DOS
Introduza los preciosCuadro 1: 400Cuadro 2: 275Cuadro 3: 225Cuadro 4: 350> Precio cuadro 1: 400.00> Precio cuadro 2: 275.00> Precio cuadro 3: 225.00> Precio cuadro 4: 350.00El maximo es 400.0 y el minimo 225.0

Esto es lo que yo he hecho, pero al compilarlo me da errores.

Procedure limites(Var precios1:Coleccion; Var minimo:real;Var maximo:real;
TAMCOLECCION: integer);

Var
i: real;(*Variable auxiliar para contadores*)

Begin
minimo:=1;
For i:=2 to TAMCOLECCION do
if(precios1[i]<precios1[minimo])then
minimo:=i;

maximo:=1;
For i:=2 to TAMCOLECCION do
if (precios1[i]<precios1[maximo]) then
maximo:=precios1[maximo];
End;

Een el segundo bucle FOR sería así

maximo:=1;
FOR i:=2 TO TAMCOLECCION DO
IF (precios1[i]>precios1[maximo]) then //aquí el signo lo tienes mal
maximo:=i; //máximo es un real!!

No lo he compilado, pero ese es el error. Por cierto, maximo y minimo pueden ser integers, ya que sólo almacenan la posición de los elementos máximo y mínimo dentro del array

Un saludo y ya sabes que estamos en contacto

Gracias Dani.