Задача решена, но есть одна проблема.

[anton140]

Здравствуйте,уважаемые. Возникла проблема с решением задачи.
Условие:
Дан месяц ноябрь вывести все дни с указанием темературы, количества осадков+написать в зависимости от тем-ры и какая погода,на пример дождь, снег.
вот Код:

program homework;
var
osad:array[0..5] of integer;
tem:array[-10..10]  of integer;
mesiac:array[1..30] of integer;
i{месяц},o{осадки},t{тем-ра}:integer;
status:string;
begin{main}
randomize;
o:=0;
        begin{заполнение tem}
        for t:=-10 to 10 do
        tem[t]:=t;
        end;
        begin{заполнение osad}
        osad[1]:=0;
        osad[2]:=1;
        osad[3]:=2;
        osad[4]:=3;
        osad[5]:=4;
        osad[5]:=5;
        end;
        begin{заполнение mesiac}
        for i:=1 to 30 do
        mesiac[i]:=i;
        end;
    begin
    for i:=1 to 30 do
    begin
    t:=random(21)-11;
    o:=random(6);
    if tem[t] in [-10..0] then status:='снег';
    if osad[o]=0 then status:='осадков нет';
    if tem[t] in [1..10] then status:='дождь';
    writeln(mesiac[i],' Ноября температура: ' ,tem[t],'; осадки: ',osad[o],' мм. ; ', status);
    end;
    end;
end.

Программа работает, но довольно часто выдает ошибку "Ошибка времени выполнения: System.IndexOutOfRangeException: Индекс находился вне границ массива." Делаю в PascalABC.NET
Всем заранее большое спасибо за помощь.

[VIK_aka_TOR]

program homework;
var
osad:array[0..5] of integer;
tem:array[1..30]  of integer;
mesiac:array[1..30] of integer;
i{месяц},o{осадки},t{тем-ра}:integer;
status:string;
begin{main}
randomize;
o:=0;
        begin{заполнение tem}
        for t:=1 to 30 do
        tem[t]:=t-15;
        end;
        begin{заполнение osad}
        osad[1]:=0;
        osad[2]:=1;
        osad[3]:=2;
        osad[4]:=3;
        osad[5]:=4;
        osad[5]:=5;
        end;
        begin{заполнение mesiac}
        for i:=1 to 30 do
        mesiac[i]:=i;
        end;
    begin
    for i:=1 to 30 do
    begin
    t:=random(30)+1;
    o:=random(6);
    if tem[t] < 0 then status:='снег';
    if osad[o]=0 then status:='осадков нет';
    if tem[t] > 0 then status:='дождь';
    writeln(mesiac[i],' Ноября температура: ' ,tem[t],'; осадки: ',osad[o],' мм. ; ', status);
    end;
    end;
end.

как то так...

[anton140]

VIK_aka_TOR
Огромное спасибо.

[VIK_aka_TOR]

неоптимизировано но работает)..

[anton140]

Это уже не важно
Спасибо.