Помогите составить программу на языке Pascal

> Alexey N
Таки не стоит в учебных задачах мешать все в кучу. И забывать про особенности майловского парсера тоже не стоит.

ТСу: надеюсь, в следующий раз, ты попытаешься сделать задание сам, и если что-то не будет получаться, обратишься на ответы уже со своей программой, которая по какой-то причине не работает (текст программы лучше выкладывать на pastebin.com ).

const
    n = 15;
var
    a: array [1..n] of integer;
    c, s: integer;
begin
    { инициализация генератора псевдослучайных чисел }
    randomize;

    { заполнение массива и вывод его элементов }
    write('массив: ');
    for c := 1 to n do begin
        a[c] := random(21) - 10;
        write(' ', a[c]);
    end;
    writeln;

    { вычисление суммы }
    s := 0;
    for c := 1 to n do if a[c] > 0 then inc(s, a[c]);
    writeln('результат: ', s);
end.

s := 0;
for i:= 1 to 15 do begin arr := random(21)-10; if (arr(i) > 0) then s := s + arr; end;

УПД: ra - да, местный парсер это что-то с чем-то. Опять-же, мне просто вот интересно, человек сам пойдет сдавать это или как? Каким надо быть.. . Гением.. . Чтоб не сьуметь напистаь такую простую задачу.
Ну и да, у меня нету цели написать идеальную задачу на 5.