Задача Фирма

[tema2434]

В офисе некоторой фирмы встретились представители N<=20 фирм для заключения договоров о сотрудничестве. Код любой какой из фирм - три большие латинские буквы. Результат договора - символьная строка, который имеет следующую структуру: первый символ объясняет, является фирма - хозяином - X или гостем - G: дальше без пропусков по три символа идут коды фирм, с которыми заключен договор. Длина таких строк неодинакова.
Входные данные - в первой строке число N; в следующих N строках - строки договора.
Выходные данные: количество фирм, которые не заключили договор с хозяевами(перечислить); коды фирм (три символа), через пробел друг за другом в порядке возрастания; коды фирм (три символа) в порядке возрастания количества договоров что заключенные; Отклонение в % наибольшей и наименьшей количества договоров от среднего значение.

Пример:
Ввод:
4
XABC ABE
GABDKLMABE
GABC
GABCKLM
Вывод:
1 ABD
ABC ABD ABE KLM
ABC ABE KLM ABD
50% 50%

Вот, то что я попробовал сделать сам:

program zd;
var n:integer;
s : array of string;
begin
Read(N);
SetLength(s,n);
for a:=1 to Length(s) do
begin
Readln(s[a]);
end;
end.

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

[VIK_aka_TOR]

Могу выполнить задание за небольшую плату.
P. S. Контакты под аватаром. Желательно в аську.

[tema2434]

Что в моем коде все так плачевно, или задача серьезного уровня?

[VIK_aka_TOR]

Код у вас нормальный на данной стадии ( выкопали котлован, осталось заложить фундамент и построить дом). Просидеть на ней можете долго без должного опыта и видения. Ну и мне порой копейка в кошельке приятно)

[tema2434]

Ясно, копейка не кому не мешает, стипендия моя невелика, на нее прожить еще постараться нужно, извиняюсь за оффтоп, я так и думал, что все что я сделал, небольшая часть необходимого, ну будем двигаться, хотя надо обдумать еще как).

[tema2434]

Немного доработанный код:

var b,n,a,i,o:integer;
s : array of string;
s1:string;
begin
Read(N);
SetLength(s,n);
for a:=1 to Length(s) do
begin
Readln(s[a]);
end;
if (s[a][1] = 'x') then begin
i:=Length(s[a][1])-1;
s1 := s[i]; end;
B:=Length(s[a])-1;
for (o:=1 to length(s[b])) do
 
end.