Homework assignement I guess?
It does not crash (as long as I give in correct input), but most of the times it does not output anything after I entered my Monthly Income.
One time it did output something it declined me, even while my income was 50 thousand and my expenses ony 30...
To make the code at the end more redable, put your if..then..else blocks inside begin..end blocks.
Further: do not let the user enter the entire name of the project, especially when you later on compare the input in a case sensitive manner.
Present the choice as something like:
1: project A
2: project B
3: project C
And then let the user just enter 1,2, or 3.
Since you use crt unit, you can use ReadKey function for that instead of Read or Readln.
Validate input. In the example above do not accept anything but 1, 2 or 3.
Why do you let me enter my name, and then don't use this later on anywhere?
Bart