Заполнить массив из 10 элементов целыми числами из интервала [-20;29],числа вводятся с клавиатуры.

Код Pascal. const  n = 10; var    a: array[1..n] of integer;    i, c: integer; begin    i := 0;    while 1 = 1 do   begin        if i = 10 then break;        readln(c);        if (c <= 29) and (c >= -20) then begin            inc(i);            a[i] := c;        end else writeln('Число выходит за границы');    end;    writeln('Готово');    readln; end. Вродь как-то так