Pascal/Turbo Pascal - Programa para calcular nuevo salario

Program NewSalary;

Uses Wincrt;

Var

Sueldo_Antiguo:real;

Salario:real;

incremento:real;

Sueldo_Nuevo:real;

Porcentaje:real;

Begin

Writeln('Escribe el monto de tu sueldo actual');

Readln(Sueldo_Antiguo);

Writeln('Escribe el porcentaje del incremento');

Readln(Porcentaje);

Sueldo_Nuevo:=Sueldo_Antiguo*Porcentaje/100; // Acá multiplico mi sueldo viejo por el porcentaje por ejemplo 15 y lo divido entre 100 para que me agarre como porcentaje.

Readln(incremento); // Esto no se si esta bien, quiero que me lea el valor para luego usarlo

Salario:=Sueldo_Antiguo+incremento; // Intento hacer que a mi sueldo antiguo se le sume el valor del incremento.

Writeln('Tu nuevo salario sera de ',Salario); // Acá quiero que ya muestre el salario nuevo.

End.

uses crt;

var

	actual,porcentaje,temp,nuevo:real;

begin

	clrscr;

	write('Ingrese su saldo actual: ');readln(actual);

	write('Porcentje de incrremento: ');readln(porcentaje);

	temp:=actual * (porcentaje/100);

	nuevo:=actual + temp; //este es el nuevo sueldo

	writeln('Tu nuevo sueldo sera de ',nuevo:4:2);

end.

writeln('Tu nuevo sueldo sera de ',nuevo:4:2);