помогите пожалуйста с паскалем!!!!

Question

Составьте программу для решения одной из следующих задач. 
Определить, есть ли в массиве одинаковые строки;

Константин · Accepted Answer

var 
 arr:array[1..10] of String; 
begin 
for i:=1 to 10 do 
ReadLn(arr); 
for i:=1 to 10 do 
for j:=i+1 to 10 do 
if (arr = arr[j]) then 
begin 
 WriteLn('Строка ', i, ' равна строке ', j); 
 Exit(); 
end 
WriteLn('Совпадений нет'); 
end. 
 
Если не разберешься, пиши в личку, или мылом.

! София Гульянц ! · Answer

Сортируете и ищете. Если массив не большой, то сравниваете все со всем.