Tengo problema con un programa

Program propuesto;
uses crt;
const
   traba=10;
var
   edad,ci,nombre,mayedad,sumaedad:string;
   sueldo,suelmin:real;
   pormin,i:integer;
   procedure calculapor(sueldo,suelmin:real);
   begin
   if sueldo<980 then suelmin:=sueldo;
   end;{calculapor}
   procedure calculamayor(edad,mayedad:string);
   begin
   if edad>mayedad then mayedad:=edad;
   end;{calculamayor}
   begin
      clrscr;
      for i:=1 to traba do
      begin
      write('cedula: ');readln(ci);
      write('edad: ');readln(edad);
      write('sueldo: ');readln(sueldo);
      if edad>mayedad then mayedad:=edad;
      writeln('la edad mayor es: ',mayedad);
      if sueldo<980 then suelmin:=sueldo;
      writeln('el porcentaje de sueldos minimos es: ',suelmin:10:2);readln;
      end.
end.