Programul nu o sa ruleze, pentru ca incerci sa atribui unui vector de caractere array[] de char o valoare de tip string '12345'. Nu o sa stie cum sa faca conversia
De aceea iti va aparea initial acel mesaj de reluare
altfel, daca rezolvi problema si notezi S:=('1','2','3','4','5'); prima atribuire va functiona, a doua nu va functiona, chiar daca o notezi S:=('s','f','a','t'); pentru ca acel cuvant PACKED desemneaza faptul ca vectorul de caractere va fi fix de lungimea data in definitie. sfat fiind format din 4 caractere, nu va rula programul.