pseudocode for view portfolio!!

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

VB Code:

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