Algoritmo_pascal

Alguém resolve aí pra mim pq eu fiz exatamente o que tava no livro e mesmo assim o código não segue;ele para quando termino de enviar os dados pra recebimento,por favor me ajudem !

	program patrao;
var Aumento,sal,SN:real;

	    No:string ; Idade,AT,P:Integer ;

	  WriteLn('Digite sua idade');

	  readln(Idade);

	  WriteLn('quantos anos trabalhados? ');

	  ReadLn(AT);

	  WriteLn('Qual o valor do seu salário? ');

	  ReadLn(sal);

	  case Idade of

	    0..25:

	    begin

	      case AT of

	      0..3: P:= 5;

	      4..6: P:= 10;

	      else

	      P:= 15;

	      end;

	    end;

	   

	    26..35:

	      begin

	      case AT of

	      0..9: P:= 20;

	      10..15: P:= 25;

	      else

	      P:= 30;

	      End;

	    end;

	    else

	    begin

	      case AT of

	      0..10: P:= 30;

	      11..20: P:= 40;

	      21..30: P:= 50;

	      31..40: P:= 60;

	      else

	      begin

	        P:= 70;

	      end;

	    end;

	  end;

	  Aumento:= (P/100)*sal;

	  SN:=sal + Aumento;

	  WriteLn('seu antigo salario era de R$:',sal);

	  Writeln('a porcentagem de aumento recebida foi de: ',Aumento:1:1,'%');

	  writeln('seu novo salario e de R$:',SN); 

	  readln;
end;

	end.