ATM machine program (Sample Turbo pascal program question)

Write a program that design ATM machine for MBA BANK

The program should load like this... 1) Welcome screen with the word "Welcome to MBA Bank" 2) When you click enter key the system should allow user to enter account open details like(Full name, sex, account number, Amount and Pin/password) 3) After entering all above 2 details system should desplay message "Congratulation for working with MBA Bank" 4) The program should have the choice of Transaction 0-quit 1-view balance, 2-deposit, 3-withdraw 5) When user enter 0 as his choice  system should close otherwise sytem should be able to withdraw, deposit or view balance 6)For user to view balance or withdraw must enter  his pin to validate his/her account before he view balance or with draw Program ATM; uses wincrt; var pin,m,x,y:integer; an,fname,sex:string; withdraw,amount,namount,draw:real; keey,chose:char; begin writeln('Welcome to MBA Bank'); readln; writeln('Enter your fullname'); readln(fname); writeln('Enter your sex'); readln(sex); writeln('Enter your A/C no.'); readln(an); writeln('Enter your amount'); readln(amount); writeln('Enter your password/pin'); readln(pin); clrscr; writeln('Congratulation for working with MBA Bank'); x:=0; Repeat  begin WRITELN('Choose one of the option of TRANSACTION you want below'); writeln('0 - quit'); Writeln('1 - view balance'); Writeln('2 - deposit'); Writeln('3 - withdraw'); chose:= readkey; clrscr; case chose of '0': halt(0); '1': begin writeln('enter your password'); readln(m); if m=pin then Writeln('the balance is', amount+namount:2:2 )  else      begin writeln('The passcode you entered is invalid'); readln(m); if m=pin then Writeln('the balance is', amount+namount:2:2 ) else   begin writeln('The passcode you entered is invalid'); readln(m); if m=pin then Writeln('the balance is', amount+namount:2:2 ) else   begin writeln('You entered more than three time try again later'); halt(0); end; end;  writeln('Press enter to restart'); readln; clrscr; end; writeln('Press enter to restart'); readln; clrscr; end; '2':  begin writeln('Enter your amount to deposite'); readln(namount); clrscr; Writeln('you have successfull deposited ',namount:2:2, ' your new balance is', amount+namount:2:2);  writeln('Press enter to restart'); readln; clrscr;   end; '3':  begin writeln('enter your password withdraw'); readln(m); writeln('enter value to withdraw'); readln(draw); withdraw := amount + namount  - draw; if m=pin then Writeln('you have successfull withdraw ',draw:2:2, ' your new balance is', withdraw:2:2) else begin writeln('The passcode you entered is invalid try again'); readln(m); if m=pin then Writeln('you have successfull withdraw ',draw:2:2, ' your new balance is', withdraw:2:2) else begin writeln('The passcode you entered is invalid try again'); readln(m); if m=pin then Writeln('you have successfull withdraw ',draw:2:2, ' your new balance is', withdraw:2:2) else   begin writeln('The passcode you entered is invalid try again later'); halt(0); end; end; writeln('Press enter to restart'); readln; clrscr; end; writeln('Press enter to restart'); readln; clrscr;     end;      End; end; x:= x+1 Until  x = 10; end.  First screen Snapshot of  program when run on TPW Second screen Snapshot of the program when run on TPW