Помогите написать небольшую программку на Pascal

[aliska_s.]

помогите написать программу на языке Pascal, реализовать таблицы данных с использованием линейных однонаправленных списков.

Информация об абонентах различных АТС представлена в следующем виде:
- номер телефона;
- ФИО;
- домашний адрес;
- тариф;
- сумма к оплате;
- сведения о внесении абонентской платы.
Написать программу, которая выводит процентное соотношение абонентов различных
АТС.

Вот до чего дошла, но как привести в рабочее состояние не могу осмыслить:

begin
SetLength(Hist, N);
SetLength(ATSUniq, N);
for i := 0 to N - 1 do
begin
with ATSList[i] do
begin
currentATS := ATStype;
for j := 0 to N - 1 do
begin

end;
end;
end;
end;