символьная матрица

[as1212]

Вот дана задача

Дана символьная матрица размера nXm. Получить последовательно все строки матрицы, исключая те, для которых есть равные среди строк с меньшими номерами.

Не получается сделать помогите пожалуйста

вот что я сделал (т.е. начал) и дальше не пойму

uses crt;
const N=5; M=10;
var
   Ch : set of char;
   d : array[1..N] of string;
   s:string;
   i, j : integer;
begin
   for  i:=1 to N do 
     read(d[i]); 
  for  i:=1 to N do begin
  while i<>(i-1) do
   if   d[i]
      

end.

Заранее благодарен