Pascal/Turbo Pascal - no me funciona igualar un real aun array del tipo real

{declaracion de tipos, variables y constantes}
CONST
TAMCOLECCION=100;
TYPE
tcuadros=record
precio:real;
end;
TARRAY=ARRAY [1..TAMCOLECCION] OF tcuadros;

VAR
TABLA: TARRAY;
NUMERO:INTEGER;
SUMAR:REAL;



{ESTE PROCEDIMIENTO NO ME FUNCIONA, Y EL FALLO SE QUE ESTA EN LA IGUALDAD "menor:=tabla[1].precio;" PERO NO SE EL PORQUE, PODÉIS AYUDARME POR FAVOR}


PROCEDURE VALOR_MINIMO (TABLA:TARRAY; NUMERO:INTEGER);

var
menor:real;
i:integer;
cuadro:integer;

BEGIN

i:=1;
writeln(tabla[1].precio);
menor:=tabla[1].precio;
while I<numero+1 do begin
if menor>tabla[i].precio then begin
menor:=tabla[i].precio;
cuadro:=i;
end
else if menor=tabla[i].precio then
menor:=menor
else menor:=menor;
end;
writeln('el precio del cuadro',cuadro,' es el minimo y cuesta ',menor);
END;

{Mira tu procedimiento veras al comparar los pequeños cambios}

uses
crt;

CONST
TAMCOLECCION=100;
TYPE
tcuadros=record
precio:real;
end;
TARRAY=ARRAY [1..TAMCOLECCION] OF tcuadros;

VAR
TABLA: TARRAY;
NUMERO:INTEGER;
SUMAR:REAL;



{ESTE PROCEDIMIENTO NO ME FUNCIONA, Y EL FALLO SE QUE ESTA EN LA IGUALDAD
"menor:=tabla[1].precio;" PERO NO SE EL PORQUE, PODEIS AYUDARME POR FAVOR}


PROCEDURE VALOR_MINIMO (TABLA:TARRAY; NUMERO:INTEGER);
var
menor : real;
i : integer;
cuadro : integer;
BEGIN
i := 1;
cuadro := 0;
writeln(tabla[1].precio:8:2);
menor := tabla[1].precio;
while i > numero + 1 do
begin
if menor > tabla[i].precio then
begin
menor := tabla[i].precio;
cuadro := i;
end
else
if menor = tabla[i].precio then
menor := menor
else
menor := menor;
i := i + 1;
end;
writeln('el precio del cuadro ',cuadro,' es el minimo y cuesta ',menor:8:2);
END;

begin
clrscr;
tabla[1].precio := 10;
VALOR_MINIMO(tabla,10);
readln;
end.

{funciona con pascal 7 correcta mente}

graciaas si me funciona ahora!!