program BankAccounts;

type
Client = record
accountNumber: Integer;
lastName: string;
balance: Real;
end;

var
clients: array of Client;

procedure AddClient;
var
newClient: Client;
begin
Write${}^{\prime }Enteraccountnumber{:}^{\prime }$;
ReadLn$newClient.accountNumber$;
Write${}^{\prime }Enterlastname{:}^{\prime }$;
ReadLn$newClient.lastName$;
Write${}^{\prime }Enterbalance{:}^{\prime }$;
ReadLn$newClient.balance$;

SetLength$clients,Length(clients)+1$;
clients$$High(clients)$$ := newClient;
end;

procedure PrintClients;
var
i: Integer;
begin
for i := 0 to High$clients$ do
begin
WriteLn${}^{\prime }Accountnumber{:}^{\prime },clients[i].accountNumber$;
WriteLn${}^{\prime }Lastname{:}^{\prime },clients[i].lastName$;
WriteLn${}^{\prime }Balance{:}^{\prime },clients[i].balance$;
WriteLn${}^{\prime }----------------------{-}^{\prime }$;
end;
end;

procedure FindClientByLastName$lastName:string$;
var
i: Integer;
begin
for i := 0 to High$clients$ do
begin
if clients$$i$$.lastName = lastName then
begin
WriteLn${}^{\prime }Accountnumber{:}^{\prime },clients[i].accountNumber$;
WriteLn${}^{\prime }Lastname{:}^{\prime },clients[i].lastName$;
WriteLn${}^{\prime }Balance{:}^{\prime },clients[i].balance$;
Exit;
end;
end;

WriteLn${}^{\prime }Clientnotfoun{d}^{\prime }$;
end;

procedure AddMoney$accountNumber:Integer;amount:Real$;
var
i: Integer;
begin
for i := 0 to High$clients$ do
begin
if clients$$i$$.accountNumber = accountNumber then
begin
clients$$i$$.balance := clients$$i$$.balance + amount;
WriteLn${}^{\prime }Moneyaddedsuccessfull{y}^{\prime }$;
Exit;
end;
end;

WriteLn${}^{\prime }Clientnotfoun{d}^{\prime }$;
end;

procedure WithdrawMoney$accountNumber:Integer;amount:Real$;
var
i: Integer;
begin
for i := 0 to High$clients$ do
begin
if clients$$i$$.accountNumber = accountNumber then
begin
if clients$$i$$.balance >= amount then
begin
clients$$i$$.balance := clients$$i$$.balance - amount;
WriteLn${}^{\prime }Moneywithdrawnsuccessfull{y}^{\prime }$;
end
else
begin
WriteLn${}^{\prime }Notenoughmoneyontheaccoun{t}^{\prime }$;
end;
Exit;
end;
end;

WriteLn${}^{\prime }Clientnotfoun{d}^{\prime }$;
end;

procedure SaveToFile$filename:string$;
var
fileVar: file of Client;
i: Integer;
begin
Assign$fileVar,filename$;
Rewrite$fileVar$;

for i := 0 to High$clients$ do
begin
Write$fileVar,clients[i]$;
end;

Close$fileVar$;
end;

procedure LoadFromFile$filename:string$;
var
fileVar: file of Client;
tempClient: Client;
begin
Assign$fileVar,filename$;
Reset$fileVar$;

while not EOF$fileVar$ do
begin
Read$fileVar,tempClient$;
SetLength$clients,Length(clients)+1$;
clients$$High(clients)$$ := tempClient;
end;

Close$fileVar$;
end;

var
choice: Integer;
lastName: string;
accountNumber: Integer;
amount: Real;
filename: string;

begin
repeat
WriteLn${}^{\prime }1.Addclien{t}^{\prime }$;
WriteLn${}^{\prime }2.Printclient{s}^{\prime }$;
WriteLn${}^{\prime }3.Findclientbylastnam{e}^{\prime }$;
WriteLn${}^{\prime }4.Addmoneytoaccoun{t}^{\prime }$;
WriteLn${}^{\prime }5.Withdrawmoneyfromaccoun{t}^{\prime }$;
WriteLn${}^{\prime }6.Savetofil{e}^{\prime }$;
WriteLn${}^{\prime }7.Loadfromfil{e}^{\prime }$;
WriteLn${}^{\prime }8.Exi{t}^{\prime }$;

Write${}^{\prime }Enteryourchoice{:}^{\prime }$;
ReadLn$choice$;
case choice of
1: AddClient;
2: PrintClients;
3: begin
Write${}^{\prime }Enterlastname{:}^{\prime }$;
ReadLn$lastName$;
FindClientByLastName$lastName$;
end;
4: begin
Write${}^{\prime }Enteraccountnumber{:}^{\prime }$;
ReadLn$accountNumber$;
Write${}^{\prime }Enteramounttoadd{:}^{\prime }$;
ReadLn$amount$;
AddMoney$accountNumber,amount$;
end;
5: begin
Write${}^{\prime }Enteraccountnumber{:}^{\prime }$;
ReadLn$accountNumber$;
Write${}^{\prime }Enteramounttowithdraw{:}^{\prime }$;
ReadLn$amount$;
WithdrawMoney$accountNumber,amount$;
end;
6: begin
Write${}^{\prime }Enterfilenametosavedata{:}^{\prime }$;
ReadLn$filename$;
SaveToFile$filename$;
end;
7: begin
Write${}^{\prime }Enterfilenametoloaddata{:}^{\prime }$;
ReadLn$filename$;
LoadFromFile$filename$;
end;
end;

until choice = 8;
end.