Подпрограммы

[superDmitry]

Доброго времени суток, уважаемые форумчане! Помогите пожалуйста переделать программу :

program console_1;

{$APPTYPE CONSOLE}

uses
  SysUtils,math;
Type mas1=array[1..6] of real;
var S:real;
    i:integer;
    a,b,c:mas1;
   {1-min;2-max} {a=MACCUB x, b=y,c=z}
//------------------------------------
function min(d:mas1;n:integer): Real;
var i:integer;min1:REAL;
begin
    min1:=d[1];
For i:=1 to n do begin
If d[i]<min1 then min1:=d[i];
end; min:=min1; end;
//-------------------------------------
function max(d:mas1;n:integer): Real;
var i:integer; max1:real;
begin
    max1:=d[1];
For i:=1 to n do begin
If d[i]>max1 then max1:=d[i];
end; max:=max1; end;
//--------------------------------------

 Procedure Sum(l,r,q:mas1;var P:real);
 var x1,x2,y1,y2,z1,z2:real;
 begin
 x1:=min(l,4);   x2:=max(l,4);
  y1:=min(r,5);   y2:=max(r,5);
   z1:=min(q,6);   z2:=max(q,6);
 If (X2+Y2+Z2)=0  then writeln('poschitat nevozmozhno') else begin
 P:=(X1*Y1*Z1)/(X2+Y2+Z2);    writeln ('result',S:2:2); end;
 writeln('4islitel=',(X1*Y1*Z1):2:2);
 writeln('znamenatel=',(X2+Y2+Z2):2:2);


   end;
begin
  writeln('BBEDUTE MASSIV a');
   For i:=1 to 4 do begin
    read(a[i]);end;


    writeln('BBEDUTE MASSIV b');
    For i:=1 to 5 do begin
    read(b[i]);end;

          writeln('BBEDUTE MASSIV c');
                 For i:=1 to 6 do begin
            read(c[i]);    end;


          Sum(a,b,c, S);

     readln;readln;

end.

для решения задачи:
Заданы коэффициенты квадратных уравнений:
ax+ bx+c=0,
dx2+fx+r=0,
px2+qx+k=0.
Найти минимальное значение среди корней этих уравнений. В случае комплексных корней принять за корни действительную и мнимую части. Решение квадратного уравнения оформить в виде подпрограммы.

с использованием процедуры. Передача информации в процедуру должна осуществляться через аппарат формальных-фактических параметров

Заранее огромное спасибо!

[rubius2008]

За денежное вознаграждение можно этим заняться
ася 600-927-970