Задача в паскале

[senora]

Нужно решить задачу в паскале
На вход программе подаются сведения о телефонах всех сотрудников некоторого учреждения. В первой строке сообщается количество сотрудников N, каждая из следующих N строк имеет следующий формат: <Фамилия> <Инициалы> <телефон>, где <Фамилия> - строка, состоящая не более чем из 20 символов, <Инициалы> - строка, состоящая не более чем из 4-х символов (буква, точка, буква, точка), <телефон> - семизначный номер, 3-я и 4, я, а также 5-я и 6-я цифры которого разделены символом «-». <Фамилия> и <Инициалы>, а также <Инициалы> и <телефон> разделены одним пробелом. Пример входной строки:

Иванов П.С. 555-66-77

Сотрудники одного подразделения имеют один и тот же номер телефона. Номера телефонов в учреждении отличаются только двумя последними цифрами.

Требуется написать как можно более эффективную программу, которая будет выводить на экран информацию, сколько в среднем сотрудников работает в одном подразделении данного учреждения.


НУЖНО РЕШЕНИЕ, ПРОГРАММА НА ЯЗЫКЕ ПАСКАЛЬ!!!
СРОЧНО!!

[Grag]

Могу сделать, но не бесплатно...
Контакты:
e-mail: delmas-61@mail.ru
icq: 585281783
Skype: delmas61

[Magnuse]

Лучше выучи C++ и пиши нормальные программы)

[mss]

icq 169527143

[Mad_Cat]

uses crt;
function GPN(st:string):string;
begin
 Delete(st,1,Pos(' ',st));
 Delete(st,1,Pos(' ',st));
 result:=st;
end;
const inp='Test.txt';
var f:TextFile;
a:array [1..1000] of string;
b:array [1..1000] of Integer;
i,n:Integer;C,k:Integer;
s:string;
fl:Boolean;
begin
  Assign(f,inp);
  Reset(f);
  readln(f,n);
  c:=0;
for I := 1 to N do
 BEGIN
  readln(f,s);
  fl:=False;
for k := 1 to c do
  if GPN(s)=a[k] then begin fl:=True;Inc(b[k]);Break;end;
 if not fl then begin Inc(c);b[c]:=1;a[c]:=GPN(s);end;
  end;
  k:=0;
  Writeln('Average by firm:',(n div c));
 close(f);
 Readln;
end.

[senora]

На С++ не могу так как это задание нужно выполнить в паскале.



Mad_Cat
Огоромное спасибо за задачу!!!
очень благодарна!!