SoloCodigo

hola tengo que corregir un codigo, aqui dejo lo que tengo que corregir:

Mira como has definido la constante

Const
TAMCOLECCION = 4;
Ahora cuando declaras el array debes escribir la costante también con mayísculas

Type coleccion = array[1..tamcoleccion] of real;
coleccion = array[1..TAMCOLECCION] of real;
Aunque funciona correctamente con el while, lo habitual y más eficiente es utilizar un for para el recorrido de un array.

ahora dejo el codigo en cuestion que hay que corregir

Program
Galeria;
uses
crt;
(*-- Constantes globales al programa -- *)
Const
TAMCOLECCION = 4;
(*-- Tipos globales al programa -- *)
Type coleccion = array[1..tamcoleccion] of real;
(*-- Variables del módulo principal -- *)
Var
precios : Coleccion;
(*-- Funciones y procedimientos -- *
procedure lee_tabla(var t : coleccion; n : integer);
var
i : integer; begin i := 1;
writeln(' Entre Precio Cuadro ');
while i < n + 1 do
begin
write(' Numero ',i,' : ');
readln(t);
i := i + 1;
end;
end;
procedure imprime_tabla(t : coleccion; n : integer);
var
i : integer;
begin i := 1;
writeln(' Los Resultados Son ');
writeln;
while i < n + 1 do
begin
writeln(' Num. : ',i,' Precio : ',t:0:2);
i := i + 1;
end;
end;
(*-- Programa Principal -- *)
Begin
clrscr;
lee_tabla(precios, TAMCOLECCION);
clrscr;
imprime_tabla(precios, TAMCOLECCION);
readln;
End.
QUIERO QUE ME LO CORRIJAN EN CODIGO PASCAL POR FAVOR.

hola tengo que modificar el siguiente programa:

program arearectangulo;
  uses
     crt;
   var
     base, altura : integer;

   procedure areapantalla(bas, alt : integer);
   begin
      writeln('  El Area Por Pantalla Es = ',bas * alt);
   end;

   function area(bas, alt : integer) : integer;
   begin
      area := 0;
      area := bas * alt;
   end;

  procedure parametros(var bas, alt : integer);
  begin
     writeln('**** Base Del Rectangulo ****');
     write('  Entre Base   : ');
     readln(bas);
     write('  Entre Altura : ');
     readln(alt);
  end;

  begin
      clrscr;
      parametros(base, altura);
      writeln;
      areapantalla(base,altura);
      writeln('  El Area Por Resultado Es = ',area(base,altura));
      writeln;
      writeln('   Pulse Una Tecla');
      readkey;
  end.


este es el ejercicio:
Codifique tres módulos en pascal que realicen el cálculo del área de un rectángulo, de base y altura pasados como parámetros. Cada uno de estos módulos devolverá el área de una manera:
a) El primero por pantalla.
b) El segundo como resultado del módulo.
c) El tercero como parámetro.

col el que ya eh hecho el programa, que esta arriba, pero tengo que cambiar Los parámetros, deben ser de tipo real.
y además falta implementar una 3ª forma en la que el área sea un parámetro pasado por referencia.