задача на подпрограммы (функции)

[mashat99]

условие задачки: заданется некоторое кол-во треугольников. узнать какой из них с наибольшим периметром

var n,i,j,Mj:integer;
                x1,y1,x2,y2,x3,y3,a,b,c,p,Mp:real;
                m: array[1..100] of real;
 
  function D(x,y,x0,y0:real):real;
     begin
     D:=sqrt(sqr(x-x0)+sqr(y-y0));
     end;
  begin
  readln(n);
  j:=1;
  for i:=1 to n do
     begin
      write('vvedit koordynaty ',i,' trykutnyka: ');
      readln (x1,y1,x2,y2,x3,y3);
      a:=D(x1,y1,x2,y2);
      b:=D(x2,y2,x3,y3);
      c:=D(x1,y1,x3,y3);
      p:=a+b+c;
          m[j]:=p;
            j:=j+1;
     end;
 
      Mp:=m[1]; Mj:=0;
      for j:=2 to n do
      begin
        if m[j]>Mp then
          begin
            Mp:=m[j];
            Mj:=j;
          end;
      end;
 
     writeln(' V ',Mj, ' trykutnyka');
     readln;
end.

все бы было хорошо...но ответвыдает неправильный

[Mad_Cat]

Mp:=m[1]; Mj:=1;

[mashat99]

спасибо...упустила этот момент...