одинаковые элементы в матрице. Delphi

[Megafono4ka]

Помогите пожалуйста написать прогу, она должна находить одинаковые элементы в матрице и выводить их и их координаты.
Вот что я смогла написать:

unit Unit1;

interface

uses
  SysUtils, Forms, Classes, Controls, StdCtrls, Dialogs;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  a:array [1..10,1..10] of integer;
i,j,x:integer;
f:textfile;
implementation

{$R *.DFM}

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

procedure TForm1.Button2Click(Sender: TObject);
begin
showmessage('Лабораторная работа №1 в среде Delphi');
end;

procedure TForm1.Button1Click(Sender: TObject);
var b,f,l,t,s,si,sj:integer;
begin
t:=0;
l:=0;
inc(t);
randomize;
si:= random(5)+1;
sj:= random(5)+1;
s:=0;
assignfile(f,'temp.tmp');
rewrite(f);
form1.Caption:=('Программа работает...');
with form1.Canvas do begin
TextOut(20+l*45,20+t*15,'Начальная матрица:');
for i:= 1 to 5 do begin
writeln(f);
inc(t);
l:=0;
for j:= 1 to 5 do begin
a[i,j]:= random(50)+1;
write(f,a[i,j]);
TextOut(20+l*45,20+t*15,inttostr(a[i,j]));
inc(l);
end;
end;
closefile(f);
l:=0;
inc(t);
begin
TextOut(20+l*45,20+t*15,'Введите число от 0 до 10');
readln(b);
for i:=1 to 5 do
for j:=1 to 5 do
begin
if b=a[si,sj];
then begin inc(f);
writeln('i=',si,'','j=',sj);
end;
end;
end;
TextOut(20+l*45,20+t*15,'Одинаковых элементов ',f);
end;
form1.Caption:=('Программа закончила работу!');
{-$I}
if fileexists('temp.tmp') then deletefile('temp.tmp');
{+$I}
end;

end.

[Megafono4ka]

HELP PLZ!!!!