//Компилятор мне выдаёт ошибку, но покажи учителю хоть что-то, чем совсем ничего.

Program One;

var

 i: integer;

 a: integer;

 mas: array [-7..7] of integer;

begin

 writeln('Исходный массив:');

  for i:=-7 to 7 do

   begin

    a[i]:= random(-7,7);

    write(a[i]:7);

   end;

  writeln();

  for i:=-7 to 7 do

   if a[i]=7 then a[i]:=1;

  writeln('Преобразованный массив:');

   for i:=-7 to 7 do

    write(a[i]:7);

end.