Дан массив 25 элементов. Задан в диапазоне -25 24. Определить среднеарифметическое элементов массива, расположенных после третьего отрицательного — Pascal(Паскаль)

program Massiv;
uses crt;
var
   Mass: array[1..25] of integer;
   Tmp, i, j: integer;
   Result: integer;
begin
   clrscr;
   randomize;
   Tmp:=0;
   {--------------}
   Write('Исходный массив: ');
   for i:=1 to 25 do
     begin
       Mass[i]:=random(50)-25;
       Write(Mass[i], ' ');
     end;
   writeln;
   {--------------}
   for i:=1 to 25 do
      begin
         if Mass[i] < 0 then Tmp:=Tmp+1;
         if Tmp = 3 then
            begin
               j:=i;
               break;
            end;
      end;
   {--------------}
   Tmp:=0;
   for i:=j+1 to 25 do
     Tmp:=Tmp+Mass[i];
   {--------------}
   Result:=round(Tmp/(25-j));
   Write('Среднее арифметическое: ', Result);
   Readln;
end.