procedure TForm1.Button1Click(Sender: TObject);
var i,j, ilosc, ilosc2: integer;
begin
  Label1.Caption:='';
  ilosc:=0;
  ilosc2:=0;
  for i:=1 to 5 do
  begin
    for j:=1 to 5 do
    begin
      tablica[i,j]:=RandomRange(2,20);
    end;
  end;
  for i:=1 to 5 do
  begin
    for j:=1 to 5 do
    begin
      if i>j then
        if tablica[i,j]=6 then
        begin
         ilosc:=ilosc+1;
        end;
         if tablica[i,j]=10 then
        begin
         ilosc2:=ilosc2+1;
        end;
      end;
  end;

  Label1.Caption:='Znalazlem ' + IntToStr(ilosc) + ' szóstek i ' + IntToStr(ilosc2) + ' dziesiatek.';

end;