Дан массив P1, … , P40. Заменить Pmax и Pmin на среднее арифметическое всего ряда — Pascal(Паскаль)

uses crt;

var
  p: array [1 .. 40] of integer;
  p1, p2, pmax, pmin, psr, i: integer;

begin
  clrscr;
  randomize;
  for i := 1 to 40 do
  begin
    p[i] := random(50);
    write(p[i]:4);
  end;
  p1 := 1;
  p2 := 1;
  pmax := p[1];
  pmin := p[1];
  for i := 1 to 40 do
  begin
    if pmax < p[i] then
    begin
      p1 := i;
      pmax := p[i];
    end;
    if pmin > p[i] then
    begin
      p2 := i;
      pmin := p[i];
    end;
    psr := psr + p[i];
  end;
  psr := psr div 40;
  p[p1] := psr;
  p[p2] := psr;
  writeln;
  writeln('srednee arifm-oe=', psr);
  writeln('max=p[', p1, ']=', pmax);
  writeln('min=p[', p2, ']=', pmin);
  writeln;
  for i := 1 to 40 do
  begin
    write(p[i]:4);
  end;

end.