Паскаль, помогите

[Andrey159+6]

Паскаль, помогите

Напишите программу, которая ввод данных в одномерный целочисленный массив осуществляет посредством цикла WHILE...DO (случайным образом), а вывод – REPEAT...UNTIL (в скобках указана размерность массива):
заменить все элементы массива, которые больше 10, на 100 (12).

 

[Евгений]

var  x:array[1..12] of integer;
     i,n:integer;
begin
     n:=12;
     Randomize;
      i:=1;
       While i<=n do
        begin
          x[i]:=Random(25)-10;
           Inc(i);
        end;
     i:=1;
      repeat
        if x[i]>10
         then x[i]:=100;
        Write(x[i]:4);
         Inc(i);
      until i>n;
     Writeln;
     Readln;
end.