pseudocode for view portfolio!!

[kenny_oh]

here is my pseudocode for view portfolio....anyone can give some comment on the pseudocode whether good enough or still can improves??

Client Pseudocode
Begin
Click Personal portfolio screen
Personal portfolio screen display
Enter Customer ID as A
Call displayAllShare (A, B, C, D)
while not end of file
Print B, C, D
End while
End

Server Pseudocode
Procedure displayAllShare (A, B, C, D)
Accept A
Open server database
Read Trading account table
Get number of rows in trading account, N
For x = 1, N


If record(x) = A
Then B = Share ID
C = Shares Amount
D = Buying Price
End If
End for
Close server database
Return
End Procedure