Delete 3 and more

#include <FileConstants.au3>
#include <AutoItConstants.au3>
#include <Array.au3>
#include <File.au3>

local $aFile
_FileReadToArray(@ScriptDir &"\Zahlen Key.txt", $aFile)
$sFileName2 = @ScriptDir &"\Zahlen kuerzer.txt"
$hFilehandle2 = FileOpen($sFileName2, $FO_OVERWRITE)
Local $sOriginal
Local $i
$str = 0
While ($str <> 11881376)
$str += 1
$sOriginal = $aFile[$str]
While 1
$si = 0
    $sOne = StringMid($sOriginal, $i+1, 1)
    $sTwo = StringMid($sOriginal, $i+2, 1)
    $sThree = StringMid($sOriginal, $i+3, 1)
    $sFour = StringMid($sOriginal, $i+4, 1)
    $sFive = StringMid($sOriginal, $i+5, 1)
    If $sOne = $sTwo Then
       If $sTwo = $sThree Then
        ExitLoop
       EndIf
    Else
        ;Nothing
    EndIf

    If $sTwo = $sThree Then
       If $sThree = $sFour Then
        ExitLoop
       EndIf
    Else
        ;Nothing
    EndIf

    If $sThree = $sFour Then
       If $sFour = $sFive Then
        ExitLoop
       EndIf
    Else
        ;Nothing
     EndIf

    If $sOne = $sTwo Then
       If $sTwo = $sFour Then
        ExitLoop
       EndIf
    Else
        ;Nothing
     EndIf

    If $sTwo = $sThree Then
       If $sThree = $sFive Then
        ExitLoop
       EndIf
    Else
        ;Nothing
     EndIf

    If $sOne = $sThree Then
       If $sThree = $sFour Then
        ExitLoop
       EndIf
    Else
        ;Nothing
     EndIf

    If $sTwo = $sFour Then
       If $sFour = $sFive Then
        ExitLoop
       EndIf
    Else
        ;Nothing
     EndIf

    If $sOne = $sThree Then
       If $sThree = $sFive Then
        ExitLoop
       EndIf
    Else
        ;Nothing
     EndIf

    If $sOne = $sTwo Then
       If $sTwo = $sFive Then
        ExitLoop
       EndIf
    Else
        ;Nothing
     EndIf

    If $sOne = $sFour Then
       If $sFour = $sFive Then
        ExitLoop
       EndIf
    Else
        FileWrite($hFilehandle2, $sOriginal & @CRLF)
        ExitLoop
     EndIf
    FileWrite($hFilehandle2, $sOriginal & @CRLF)
    ExitLoop
WEnd
WEnd