Wenn Du ein Zeichen im String "z" löschen willst, dann
if a[i] = z then Delete(z,i,1)
aber Du müsstest dann rückwärts durch den String gehen, da z ja u.U. immer kürzer wird und "ende" dann über den String hinaus zeigt.
Dann hast Du (soweit ich das sehe) eine Enlosschleife mit while, weil Du "i" nicht veränderst (immer i = ende = 0)
Dann innerhalb der Schleife Zuweisung an "a" und "z", was irgenwie alles nutzlos macht