Измените знак всех нечетных (четных) элементов массива, состоящего из L чисел

var
  l,i,j:integer;
  a:array of string;
begin
  write('L=');
  readln(l);
  setlength(a,l);
  writeln('Enter array:');
  for i:=0 to l-1 do begin
    write('a[',i+1,']=');readln(a[i]);
  end;
//меняем знак у нечетных элементов
  for i:=0 to l-1 do
    if TryStrToInt(a[i],j) and odd(j) then a[i]:=IntToStr(-j);
  writeln('New array:');
  for i:=0 to l-1 do writeln('a[',i+1,']=',a[i]);
end.

var
  l,i:integer;
  a:array of real;
begin
  write('L=');
  readln(l);
  setlength(a,l);
  writeln('Enter array:');
  for i:=0 to l-1 do begin
    write('a[',i+1,']=');readln(a[i]);
  end;
//меняем знак у нечетных элементов
  for i:=0 to l-1 do
    if (trunc(a[i])=a[i]) and odd(trunc(a[i])) then a[i]:=-a[i];
  writeln('New array:');
  for i:=0 to l-1 do writeln('a[',i+1,']=',a[i]);
end.