Упростить вЫрАжение с помощью функции

[Loqwer78rus]

Как мне упростить ворожение Solution с помощью функции (function)?

x:array[1..1,1..3] of Real;
buff:array[1..1,1..3] of Real;

Solution:=sqrt((buff[1,1]-x[1,1])*(buff[1,1]-x[1,1])+(buff[1,2]-x[1,2])*(buff[1,2]-x[1,2])+(buff[1,3]-x[1,3])*(buff[1,3]-x[1,3]));

[evg_m]

function S2(a,b: real):real;
begin
  result:=(a-b)*(a-b);
end;

solution:=sqrt( S2(...) + S2(....)  + S2(....)   );

[Stilet]

type TMyArray=array[1..1,1..3] of Real;
...
var x,buf:TMyArray;

function S2(a,b: TMyArray):real;var i:integer;
begin
  Result:=0;
  For i:=1 to 3 do Result:=Result*(b[1,i]-a[1,i]);
  Result:=Sqtr(Result);
end;

solution:=S2(x,buf);