Определить, есть ли хотя бы 1 элемент, равный заданному числу на главной диагонали квадратного массива

var
  Form1: TForm1;
  x: array of array of integer;
  n: integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
//зададим некоторые параметры таблицы
with StringGrid1 do
 begin
  fixedCols:=0;
  fixedRows:=0;
  defaultColwidth:=30;
  scrollBars:=ssBoth
 end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var i,j,code:integer;
begin
randomize;
//проверим ввод размера матрицы
val(Edit1.Text,n,code);
if (code<>0)or(n<2)then
 begin
  ShowMessage('Неверно введен размер матрицы');
  Edit1.Clear;
  Edit1.SetFocus;
  exit
 end;
StringGrid1.RowCount:=n;
StringGrid1.ColCount:=n;
Setlength(x,n,n);
for i:=0 to n-1 do
for j:=0 to n-1 do
 begin
  x[i,j]:=random(100);
  StringGrid1.Cells[j,i]:=IntToStr(x[i,j])
 end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var i,a,code:integer;
    f:boolean;
begin
//провеим ввод числа
val(Edit2.Text,a,code);
if code<>0 then
 begin
  ShowMessage('Неверно введено число для поиска');
  Edit2.Clear;
  Edit2.SetFocus;
  exit
 end;
f:=false;//пока число не найдено
i:=0;
while(i<n)and not f do
if x[i,i]=a then f:=true
else inc(i);
if f then ShowMessage('Искомое число есть на главной диагонали'+#13#10+
                      'в ячейке ['+inttostr(i+1)+','+inttostr(i+1)+']')
else ShowMessage('Искомого числа нет на главной диагонали');
end;