Das hatten wir schon mal.
vokal:=1;
Wenn ein Buchstabe ein Vokal ist, weißt du der Variable vokal eine 1 zu.
Hat zur Folge: Wenn im Satz ein Vokal ist, kriegst du am Ende IMMER eine 1 raus, ansonsten 0.
Du musst schreiben vokal:=vokal+1; oder inc(vokal);
Das gleiche gilt bei den Konsonanten.