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