Функции в Delphi

[Bimmer71]

Помогите сделать..

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

[Stilet]

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

Ну к примеру так:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
  var a:array[1..3,1..3] of integer;
  q,w:integer;

  function aga:boolean;
  var i:integer;
  begin
    Result:=true;
    for i:=1 to 2 do
     if a[i,i]<>a[i+1,i+1] then begin Result:=false; break; end;
  end;

begin
 for q:=1 to 3 do begin
  for w:=1 to 3 do begin
   a[q,w]:=random(3);write(a[q,w]:5);
  end; writeln;
 end;
 writeln;
 write(aga);
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.