uses Crt const type list record fio string year integer group string c

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
uses Crt;
const n = 3;
type list = record
fio:string;
year:integer;
group:string;
city:string;
company:string;
post:string;
end;
var listArray:array[1..n] of list;
procedure initList(var a:array of list);
var i:integer;
begin
for i:=1 to n do
with a[i] do
begin
writeln('-- Enter people --');
write('FIO: ');readln(fio);
write('Year: ');readln(year);
write('Group: ');readln(group);
write('City: ');readln(city);
write('Company: ');readln(company);
write('Post: ');readln(post);
writeln;
end;
end;
procedure writeCompany(a:array of list);
var i:integer;
begin
writeln('--- Company ---');
i:=1;
while(i <= n) do
begin
writeln(a[i].company);
i:=i+1;
end;
end;
Begin
clrscr;
initList(listArray);
writeCompany(listArray);
readkey;
End.