Reduction code

func a()
local $Form1 = GUICreate("Hasło do: " & $passkey[0], 338, 152, 192, 132)
$Input1 = GUICtrlCreateInput($pass[0], 0, 48, 337, 36)
$IsPw = GUICtrlCreateLabel("Twoje haslo to:", 64, 8, 183, 33)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Change = GUICtrlCreateButton("Zmień haslo", 56, 96, 201, 41)
GUISetState(@SW_SHOW)

While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
    Case $GUI_EVENT_CLOSE
       GUIDelete($Form1)
     Return
    case $change
       $newpw = InputBox("Haslo", "Podaj tutaj swoje nowe haslo." & @LF & "Wszystkie zmiany zostaną zapisane po restarcie programu.", "","*",250,200)
       IniWrite("config.passwordmanagerpro","password","pass1",$newpw)
       GUICtrlSetData($input1,$newpw)
   EndSwitch
WEnd
EndFunc

func b()
local $Form1 = GUICreate("Hasło do: " & $passkey[1], 338, 152, 192, 132)
$Input1 = GUICtrlCreateInput($pass[1], 0, 48, 337, 36)
$IsPw = GUICtrlCreateLabel("Twoje haslo to:", 64, 8, 183, 33)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Change = GUICtrlCreateButton("Zmień haslo", 56, 96, 201, 41)
GUISetState(@SW_SHOW)

While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
    Case $GUI_EVENT_CLOSE
       GUIDelete($Form1)
     Return
    case $change
       $newpw = InputBox("Haslo", "Podaj tutaj swoje nowe haslo." & @LF & "Wszystkie zmiany zostaną zapisane po restarcie programu.", "","*",250,200)
       IniWrite("config.passwordmanagerpro","password","pass2",$newpw)
       GUICtrlSetData($input1,$newpw)
   EndSwitch
WEnd
EndFunc

func c()
local $Form1 = GUICreate("Hasło do: " & $passkey[2], 338, 152, 192, 132)
$Input1 = GUICtrlCreateInput($pass[2], 0, 48, 337, 36)
$IsPw = GUICtrlCreateLabel("Twoje haslo to:", 64, 8, 183, 33)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Change = GUICtrlCreateButton("Zmień haslo", 56, 96, 201, 41)
GUISetState(@SW_SHOW)

While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
    Case $GUI_EVENT_CLOSE
       GUIDelete($Form1)
     Return
       case $change
       $newpw = InputBox("Haslo", "Podaj tutaj swoje nowe haslo." & @LF & "Wszystkie zmiany zostaną zapisane po restarcie programu.", "","*",250,200)
       IniWrite("config.passwordmanagerpro","password","pass3",$newpw)
       GUICtrlSetData($input1,$newpw)
   EndSwitch
WEnd
EndFunc

func d()
Local $Form1 = GUICreate("Hasło do: " & $passkey[3], 338, 152, 192, 132)
$Input1 = GUICtrlCreateInput($passkey[3], 0, 48, 337, 36)
$IsPw = GUICtrlCreateLabel("Twoje haslo to:", 64, 8, 183, 33)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Change = GUICtrlCreateButton("Zmień haslo", 56, 96, 201, 41)
GUISetState(@SW_SHOW)

While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
    Case $GUI_EVENT_CLOSE
       GUIDelete($Form1)
     Return
   case $change
       $newpw = InputBox("Haslo", "Podaj tutaj swoje nowe haslo." & @LF & "Wszystkie zmiany zostaną zapisane po restarcie programu.", "","*",250,200)
       IniWrite("config.passwordmanagerpro","password","pass4",$newpw)
       GUICtrlSetData($input1,$newpw)
   EndSwitch
WEnd
EndFunc

func e()
local $Form1 = GUICreate("Hasło do: " & $passkey[4], 338, 152, 192, 132)
$Input1 = GUICtrlCreateInput($pass[4], 0, 48, 337, 36)
$IsPw = GUICtrlCreateLabel("Twoje haslo to:", 64, 8, 183, 33)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Change = GUICtrlCreateButton("Zmień haslo", 56, 96, 201, 41)
GUISetState(@SW_SHOW)

While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
    Case $GUI_EVENT_CLOSE
       GUIDelete($Form1)
     Return
       case $change
       $newpw = InputBox("Haslo", "Podaj tutaj swoje nowe haslo." & @LF & "Wszystkie zmiany zostaną zapisane po restarcie programu.", "","*",250,200)
       IniWrite("config.passwordmanagerpro","password","pass5",$newpw)
       GUICtrlSetData($input1,$newpw)
   EndSwitch
WEnd
EndFunc

func f()
local $Form1 = GUICreate("Haslo do: " & $passkey[5] , 338, 152, 192, 132)
$Input1 = GUICtrlCreateInput($pass[5], 0, 48, 337, 36)
$IsPw = GUICtrlCreateLabel("Twoje haslo to:", 64, 8, 183, 33)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Change = GUICtrlCreateButton("Zmień haslo", 56, 96, 201, 41)
GUISetState(@SW_SHOW)

While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
    Case $GUI_EVENT_CLOSE
       GUIDelete($Form1)
     Return
    case $change
       $newpw = InputBox("Haslo", "Podaj tutaj swoje nowe haslo." & @LF & "Wszystkie zmiany zostaną zapisane po restarcie programu.", "","*",220,180)
       IniWrite("config.passwordmanagerpro","password","pass6",$newpw)
       GUICtrlSetData($input1,$newpw)
endfunc