Найти и закрасить строки матрицы, все элементы которых различны

[Kate1414]

Условие задачи: Дана целочисленная матрица размера M на N. Найти и закрасить ее строки, все элементы которых различны.
Мой код:

var
  Form1: TForm1;
  m,n,i,j,p,k:byte;
  f:boolean;
  A: array [1..100,1..100] of integer;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Randomize;
end;


procedure TForm1.Button3Click(Sender: TObject);
var
  i, j: byte;
begin
  for i := 0 to StringGrid1.RowCount - 1 do
    for j := 0 to StringGrid1.ColCount - 1 do
      StringGrid1.Cells[j, i] := IntToStr(Random(100));
      StringGrid1.Repaint;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 close;
end;

procedure TForm1.Button1Click(Sender: TObject);
 var i, j, k,p: Integer;

begin
  n := StringGrid1.RowCount;
  m := StringGrid1.ColCount;
  k:=0;
   For i:=0 to n-1 do begin
    For j:=1 to m-1 do
    A[i, j] := StrToInt(StringGrid1.Cells[j, i]);
    for i := 1 to m - 1 do begin
      j:=1;
      f:= true;
      while(j<=n) and f do begin
       for p:=1 to n do
       if (p<>0) and (a[p,j]=a[i,j]) then f:=false;
       if f then inc(i);
       end;
      if f then k:=k+1;
     end;
   End;
end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  i: Integer;
begin
  StringGrid1.Canvas.Brush.Color := clWhite;
  for i := Low(b) to High(b) do
    if ((ACol = ) and (ARow = )) then
      StringGrid1.Canvas.Brush.Color := clRed;
  StringGrid1.Canvas.FillRect(Rect);
  StringGrid1.Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, StringGrid1.Cells[acol, arow]);
end;

end;

 End.

[Stilet]

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