Я не уверен, что тебе нужно именно это, но может я угадал type TPers = record Fam, Name, Par : String; Year : Integer; Dep : String; end; var Pers : TPers; begin Pers.Fam:='Иванов'; Pers.Name:='Иван'; Pers.Par:='Иванович'; Pers.Year:=1966; Pers.Dep:='Цех №1'; end;
type TPers = record
Fam, Name, Par : String;
Year : Integer;
Dep : String;
end;
var Pers : TPers;
begin
Pers.Fam:='Иванов';
Pers.Name:='Иван';
Pers.Par:='Иванович';
Pers.Year:=1966;
Pers.Dep:='Цех №1';
end;