Информатика! Необходимо составить программку на языке паскаль. Мама выдала сыну Саше

program raf105;

var mama,sum,rub,day:integer;

begin

write('Какую сумму денег мама выдала отпрыску? gt;gt; ');

readln(mama);

writeln('Введите сумму, которую вы потратили за один день');

writeln('Что бы выяснить оставшиеся и истраченные средства введите "-1"');

sum:=mama;

while sumlt;gt;0 do

begin

 readln(rub);

 if sum-rub gt;= 0  

   then

   if rub=-1  

     then

     begin

       writeln('У вас осталось ',sum,' руб.');

       writeln('Вы истратили ',mama-sum,' руб. за ',day,' дн.');

     end

     else

      begin

        sum:= sum-rub;

        day:= day+1;

      end

    else writeln('У вас недостаточно средств, что бы потратить такую сумму');

end;

writeln('У вас закончились средства');

writeln('Вы истратили их за ',day,' дн.');

end.

Написано на языке PascalABC.NET