Ti si u svom kodu iskonbinovao pola mog, a pola Toyo-inog rjesenja. Zato ti i nije radilo. Evo gotovog koda i to opet po Toyo-inom prijedlogu :)
Code:
program pas;
{$APPTYPE CONSOLE}
uses SysUtils;
const
mesec:array[1..12] of String[10] = ('Januar', 'Februar','Mart','April','Maj','Juni','Juli',
'Avgust','Septembar','Oktobar','Novembar','Decembar');
dana:array[1..12] of integer = (31,28,31,30,31,30,31,31,30,31,30,31);
var
brojmeseca,brojdana:integer;
begin
writeln('Molim upisite broj meseca: ') ;
readln(brojmeseca);
writeln;
if brojmeseca<=12 then
writeln (mesec[brojmeseca],' ima ',dana[brojmeseca],' dana.');
end.