const n=4; m=5;
var 
a:array[1..n,1..m] of integer;
t:array[1..m] of integer;
max:array[1..n] of 1..m;
i,j,mx,k:integer; 

const n=4;
var a : array[1..n,1..n] of integer; 
    max,min,e,i,j,k : integer;
begin
Randomize; 
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
   a[i,j]:=random(20)-10;
   write(a[i,j]:4); 
  end;
  writeln;
  end; 
write('E=');readln(e);
max:=a[1,1]; min:=a[1,1];
for i:=1 to n do
 for j:=1 to n do begin
  if a[i,j]>max then max:=a[i,j];
  if a[i,j]<min then min:=a[i,j];
  end;
k:=0;
writeln('max-min=',max,'-',min,'=',max-min);
if max-min>e then
begin
for i:=1 to n do
 for j:=1 to n do begin
  if a[i,j]<0 then begin a[i,j]:=0; k:=k+1; end
    else if a[i,j]>0 then begin a[i,j]:=1; k:=k+1; end;
  end;
writeln('Полученный массив:');
for i:=1 to n do
 begin
  for j:=1 to n do write(a[i,j]:4); 
  writeln;
  end; 
  writeln('k=',k);
  end
  else writeln('Массив не изменился');
end.

Пример:
  -3   7  -1  -4
   1   4  -3 -10
   5  -3   6   7
   2  -8  -8   0
E=8
max-min=7--10=17
Полученный массив:
   0   1   0   0
   1   1   0   0
   1   0   1   1
   1   0   0   0
k=15