program abc;｛这是一个读学生成绩的程序｝
type student:record｛定义记录类型｝
      name:string;｛姓名｝
      score:integer;｛分数｝
var a:array[1..100] of student;i:integer;｛数组类型为student记录类型｝
begin
   for i:= to 100 do
    read(a[i].name,a[i].score);｛记录类型的应用，表示，及操作｝
end.
｛记得加分｝

同意楼上的
顺便向你推荐一本书
南京大学出版社出版的《全国青少年信息学奥林匹克联赛培训教材》
里面有很详细的介绍

我也敲一题吧
type
  sexs=(male,female);
  dates=record
       year:1990..1999;
       month:1..12;
       day:1..31;
  end;
var
  x,y:dates;
  early:boolean;
procedure ea(A,B:dates);
  begin
    early:=false;
    if(A.year<B.year)then early:=true
    else if (A.year=B.year)and(A.month<B.month) then early:=true
    else if (A.year=B.year)and(A.month=B.month)and(A.day<B.day)
    then early:=true;
  end;
begin
  readln(x.month,x.day,x.year);
  readln(y.month,y.day,y.year);
  ea(x,y);if early=false then writeln('later')else write('early');
end.
这题写的是读入两个日期比较他们的迟早