Ebben most mi a hiba?

többet kéne látni, csináld a következőket:

options->enviroment->preferences->screen sizet állítsd át és úgy csinálj print scrn-t

Csak átfutottam a kódot. Nem lehet, hogy a gond abból fakad, hogy az "angol" tipizálatlan konstans?

Próbáld meg tipizált konstanssal, mert az változóként működik:

const

angol:String='aeio…';

…

(Figyelem, ebben az esetben az angol változó lesz, tehát az értékét lehet módosítani futás közben.)

Érdemesebb lett volna ide beírni a kódot, mint ahogy szokták.

nyilt:=nyilt-UPCASE(SZOVEG[I]);

Nem megengedett a "-" operátor string-eknél.

A másik képen az erite(f,... hibás, nincs olyan hogy erite.

Egy hibát találtam még:

<>0then

Ez így nem jó, mert "0then"-t próbálja változóként értelmezni. Mindenképpen kell szóköz a then elé.