Составить функцию для вычисления среднего арифметического в Delphi

[laventus]

Составить функцию для вычисления среднего арифметического значения
элементов главной диагонали квадратной матрицы 3х3. Используя эту
функцию, вывести первую строку заданной матрицы, если среднее
арифметическое значение элементов ее главной диагонали положительно; в
противном случае вывести сообщение "Условие не выполнено".

[veniside]

type
  T3x3Array = array[1..3, 1..3] of real;

function sa(var a: T3x3Array): real;
begin
  sa := (a[1, 1] + a[2, 2] + a[3, 3]) / 3;
end;

дальше сами

[Scorpio76]

Вариант в виде консольной программки:

program ProjectSA;
{$APPTYPE CONSOLE}
uses SysUtils;

const g=3;
var i,j:integer;
SA: real;
A : array[1..g,1..g] of integer;

begin
 For i:=1 to g do
 for j:=1 to g do
 begin
 WriteLn('A[',IntToStr(i),',',IntToStr(j),']=');
 ReadLn(A[i,j]);
 end;
 for i:=1 to g do
 SA:=SA+a[i,i];
 SA:=SA/g;
 if SA>=0 then
 begin
 for i:=1 to g do
 Write(' ',IntToStr(a[1,i]));
 end
 else
 WriteLn('SA < 0 ');
 Readln;
end.

Переделать в функцию не должно составить проблем. ))