Заменить все отрицательные элементы одномерного массива из N случайных чисел их квадратами — Pascal(Паскаль)

var a:array[1..100] of integer; i,j,n:byte;
begin
  writeln('Введите размерность массива');
  readln(n);
  for i:=1 to n do
  begin
     a[i]:=random(100)-50;
    write(a[i]:5);
  end;
  writeln;
  for i:=1 to n do
    if a[i]<0 then a[i]:=sqr(a[i]);
  writeln('масссив');
  for i:=1 to n do
  write(a[i]:5);
  writeln;
end.