home *** CD-ROM | disk | FTP | other *** search
/ Vectronix 2 / VECTRONIX2.iso / FILES_01 / HSPASCAL.LZH / HSPASCAL / RECORD.PAS < prev    next >
Pascal/Delphi Source File  |  1993-10-24  |  509b  |  21 lines
  1. program pointeur (input,ourtput);
  2.         
  3. var     liste  :
  4.              record 
  5.                 nom : array [1..10] of string;
  6.                 cote :array [1..10] of integer ;
  7.              end;
  8.         a: integer ;
  9.           
  10.         begin
  11.         clrscr;
  12.         
  13.         for a := 1 to 10 do
  14.         readln(liste.nom[a],liste.cote[a]);
  15.  
  16.         for a := 1 to 10 do
  17.                 writeln(liste.nom[a],'   ',liste.cote[a]);
  18.                                 
  19.         
  20.         end.
  21.