uses Crt;
const n = 2;
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 pepople --');
            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.