во первых 1abc нельзя что бы название программы начиналось с цифры

после wiriteln количество денег написать readln(h)

после введите стоимость портфеля должно быть ;