Pseudocódigo/Diagramas de Flujo - ayuda logaritmo

uses crt;

const

    max = 40;

type

    empleado=record

        nombre:string;

        edad:byte;

        anios:byte;

        sueldo:real;

    end;

var

    datos:array[1..max] of empleado;

    i,j,s:integer;

    mayor,menor,acumulado:real;

    nombre_mayor,nombre_menor:string;

begin

    clrscr;

    {entrada de datos}

    acumulado:=0;

    for i:=1 to max do begin

        s:=0;

        with datos[i] do begin

            write('Nombre del empleado: ');

            readln(nombre);

            write('Edad del empleado: ');

            readln(edad);

            write('Anios en la empresa: ');

            readln(anios);

            for j:=1 to anios do

                s:=s+j;

            sueldo:=100+edad+s/anios;

            acumulado:=acumulado+sueldo;

        end;

    end;

    writeln;

    {Muestra el nombre y el sueldo de los trabajadores}

    for i:=1 to max do begin

        write(datos[i].nombre);

        write(datos[i].sueldo:15:2);

        writeln;

    end;

    {Total acumulado de todos los trabajadores}

    writeln;

    writeln('Sueldo total acumulado = ',acumulado:4:2);

    {Sueldo mayor y sueldo menor}

    mayor:=0.0;

    for i:=1 to max do begin

        if datos[i].sueldo > mayor then begin

            mayor:=datos[i].sueldo;

            nombre_mayor:=datos[i].nombre;

        end;

    end;

    menor:=datos[1].sueldo;

    for i:=2 to max do begin

        if datos[i].sueldo < menor then begin

            menor:=datos[i].sueldo;

            nombre_menor:=datos[i].nombre;

        end;

    end;

    writeln;writeln('Trabajador con mayor sueldo ',nombre_mayor);

    writeln('Trabajador con menor sueldo ',nombre_menor);

    readkey;

end.