Pa sto ne uradis ovako kako sam ti gore napisao ? :)
Evo ti jedno krace resenje od onog tvog:
Code:
program Dan_U_Sedmici;
const
dani : Array[1..7] of String = ('Ponedeljak', 'Utorak', 'Sreda', 'Cetvrtak', 'Petak', 'Subota', 'Nedelja');
var
a : Integer;
izlaz : Char;
begin
izlaz := ' ';
While izlaz <> 'y' Do
Begin
Write('Upisi redni broj dana: ');
ReadLn(a);
WriteLn(dani[a]);
Write('Izlazak iz programa (y/n) ?');
ReadLn(izlaz);
End;
end.