Задача, Массивы строк Опции

[Aljonka]

Программа запрашивает N строк, сохраняет их в массиве S и сообщает:
• есть ли в массиве строки одинаковой длины,
• есть ли в массиве одинаковые строки.

[Ozzя]

запрашивает N строк, сохраняет их в массиве S

for i:=1 to n do
begin
  readln (S);
  a[i]:=s;
end;

Длина строки - функция length