Помогите с лабой по delphi

[Ohayo]

Помогите пожалуйста:Составить функцию, возвращающую значение TRUE, если элементы главной диагонали квадратной матрицы 3х3
равны между собой, и FALSE в противном случае. Если элементы главной диагонали заданной матрицы равны
между собой, увеличить элементы каждого столбца матрицы на значение элемента главной диагонали и вывести
полученную матрицу. В противном случае вывести на печать сообщение "Элементы не совпадают".

[type_Oleg]

Функция, возвращающая ...

function EsliRawn(matr:TMatr):Boolean;
begin
 Result:=(matr[1,1]=matr[2,2])and(matr[1,1]=matr[3,3]);
end;

Ну а тип TMatr сами опишите.
И т.д.