[ Foro de Pascal ]

array

buenas! necesito ayuda con esto, quiero saber qué es lo que estoy haciendo mal, en la parte que ingreso el rol al imprimirlo me tira una oración con diferentes signos, a lo cual se espera los precios cargados previamente. Espero respuesta. Gracias de antemano.



program quince;
const dimF1=1000;
     dimF2=5;
type cP=1..dimF1;
    rl=1..5;
    stg=string[20];
    roles=array[1..dimF2]of real;
    part=record
         paisR:stg;
         codP:cP;
         nomP:stg;
         rol:roles;
         cantHT:integer;
         end;
    partS=array[1..dimF2]of part;

procedure cargarR(var r:roles);
begin
 r[1]:=35.20;
 r[2]:=27.45;
 r[3]:=31.03;
 r[4]:=44.28;
 r[5]:=39.87;
end;



var ps:parts;
   p:part;
   dimL,i:integer;
   r:roles;
   c:rl;
begin
 dimL:=0;
 cargarR(r);
 write('pais de residencia: ');readln(p.paisR);
 write('codigo de proyecto: ');readln(p.codP);
 while(diml<dimF1)and(p.codP<>-1)do begin
   write('nombre del proyecto: ');readln(p.nomP);
   write('rol: ');readln(p.rol[c]);
   write('cantidad de horas trabajadas: ');readln(p.cantHT);
   diml:=diml+1;
   ps[diml]:=p;  
   write('pais de residencia: ');readln(p.paisR);
   write('codigo de proyecto: ');readln(p.codP);
 end;




 for i:=1 to dimL do {imprime el vector/prueba}
   writeln(ps[i]);    
 readln;
end.