Заполнить массив, состоящий из 100 элементов в автоматическом режиме. найти и изменить пятидесятый элемент массива.

Var
a:array[1..100] of integer;
i:byte;
begin
for 1 to 100 do a[i]:=random(100);
writeln("50 элемент массива =",a[50]);
writeln("введите новое значение");
readln(a[50]);
end.