Type
    MyRec = record
        s1 : string;
        s2 : string;
        i1 : integer;
        i2 : integer;
        f1 : double;
        s3 : string;
    end;
var
    MyArray: array[0..3] of MyRec = (
        (s1:'Alan';  s2:'Center field'; i1:17; i2:56; f1:0.375;  s3:'Cannelloni'),
        (s1:'Colin'; s2:'Pitcher';      i1:26; i2:96; f1:0.456;  s3:'Lefse'),
        (s1:'Cindy'; s2:'Second base';  i1:13; i2:58; f1:0.207;  s3:'Tequila'),
        (s1:'Dave';  s2:'First base';   i1:28; i2:138; f1:0.508; s3:'Suds')
        );

这个问题好像应该发到编程区