[The Shadow]

Код:

TData=record
 day:1..31;
 month:1..12;
 year:Integer;
end;

TOcheredniki=record
 fam:String[50];
 name:String[30];
 otch:String[50];
 plosh:Integer;
 kol:Byte;
 srok:TData;
 staj:TData;
end;
var
Ocheredniki: TOcheredniki;
f: file of TOcheredniki;
begin
AssignFile(f, 'x.txt');
Reset(f);
Read(f, Ocheredniki);
//
CloseFile(f);
end;
end;

Я сразу на форуме писал, поэтому ошибся.