Rekord (adatszerkezet)

Turbo Pascal-ban a rekord logikailag összetartozó adatokat fog össze.

Program Rekord;

Type TDatum = Record
                ev:String;
                ho:1..12;
                nap:1..31;
              End;

Var datum:TDatum; {egy TDatum típusú rekord létrehozása}

Begin
  {hivatkozás a rekord egyes mezőire}
  datum.ev:=2010;
  datum.ho:=7;
  datum.nap:=11;

  {illetve lekérdezés}
  With datum Do Begin
    WriteLn('Ev : ',ev);
    WriteLn('Ho : ',ho);
    WriteLn('Nap: ',nap);
  End;
  ReadLn;
End.