Замена отрицательных на положительные:
Так нужно было?

uses crt;var mas:array [1..6] of integer; a,i,j:integer;
beginrandomize;
     for i:=1 to 6 do     
begin     
mas[i]:=random(60)-50;   
    writeln(i:2,' ',mas[i])   
 end;       readln; 
   for i:=1 to 6 do 
   begin 
   if mas[i]<0 then mas[i]:=abs(mas[i]); 
   writeln(i:2,' ',mas[i]);   
  end;
     readln;     end.