Матрицы Delphi

[Skarabei]

Помогите дописать программу!Задача: сравнить строки матрицы и если нет одинаковых выдать сообщение об этом..

procedure TMainForm.GoBtnClick(Sender: TObject);
var  text: string;
    i,j,k : Integer;
begin
  for i:=0 to Rows.value do
    for j:=i+1 to Rows.value-1 do
       for k:=0 to Cols.value-1 do

Дальше у меня ступор...Никак не могу врубиться как это сделать...((

[IT-man]

// для матрицы 4 на 4
for i:=1 to 3 do
begin
k:=0;
for j:=1 to 4 do
if a[i,j]=a[i+1,j] then inc(k);
if k=4  then writeln ('stroki',+inttostr(i)+',and '+inttostr(i+1)+'odinakovy');
k:=0;
end;

[Skarabei]

Одна большая просьба....Можно вариант для матрицы n*n или m*n с использованием таких элементов:
1) Сравниваем Matrix.Cells[k,i] и Matrix.Cells[k,j]
2) сообщение выводим в виде MessageDlg(text, mtInformation, [mbOk], 0);
где text присваивается значение либо есть одинаковые либо нет одинаковых

[Stilet]

Можно вариант для матрицы n*n или m*n

// n m сам введеш
for i:=1 to n do
begin
k:=0;
for j:=1 to m do

сообщение выводим в виде MessageDlg(text, mtInformation, [mbOk], 0);

if Matrix.Cells[i,j]=Matrix.Cells[i+1,j] then inc(k);
if k=4  then MessageDLG(pchar('stroki',+inttostr(i)+',and '+inttostr(i+1)+'odinakovy'),[mbOk], 0);