Массив. Все элементы массива, модуль которых не превышает 1, заменить 0.

program laba;
uses crt;
var a:array[1..100] of real;
    i,n:integer;
begin
clrscr;
randomize;
write('N=');
readln(n);
writeln('Введите массив');
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
writeln('Ваш массив');
for i:=1 to n do
write(a[i]:0:2,' ');
writeln;
writeln('Полученный массив');
for i:=1 to n do
begin
if abs(a[i])<1 then a[i]:=0;
write(a[i]:0:2,' ');
end;
readkey
end.

program Array_;
uses crt;
var a:array[1..10,1..10] of real;
    i,j,n,m:integer;
begin
clrscr;
randomize;
write('Êîë-âî ñòðîê(äî 10) = '); readln(n);
write('Êîë-âî ñòîëáöîâ(äî 10) = '); readln(m);
writeln('Èñõîäíûé ìàññèâ');
For i:=1 to n do
  begin
  For j:=1 to m do
    begin
    a[i,j]:=random*11-5;
    write(a[i,j]:6:2);
    end;
  writeln;
  end;
  writeln('Íîâûé ìàññèâ');
  For i:=1 to n do
  begin
  For j:=1 to m do
    begin
    if abs(a[i,j])<1 then a[i,j]:=0;
    write(a[i,j]:6:2);
    end;
  writeln;
  end;
readkey
end.