Дан целочисленный массив из 5 элементов возвести в квадрат отрицательные элементы

Какой ЯП?
Pascal?
var a:
array[1..5] of integer;    
i:integer;
begin
writeln('Введите 5 чисел');
for i:=1 to 5 do
readln(a[i]);
 for i:=1 to 5 do
 if a[i]<0
then writeln(sqr(a[i]));
readln;
end.

Program square_negative;
var
  a: array[1..5] of integer;
  i: integer;
begin
  writeln('Ввод массива: ');
  for i := 1 to 5 do
  begin
    write('a[', i, '] = ');
    readln(a[i]);
    if a[i] < 0 then
      a[i] := a[i] * a[i];
  end;
  writeln('Вывод изменённого массива: ');
  for i := 1 to 5 do
    write(a[i], ' ');
end.