Небольшая программа на функцию

program arrxy;
 
const n = 5;
 
type coord = record
     x, y: integer
     end;
 
     arr = array [1..n, 1..n] of real;
 
var i, j: integer;
    imax: coord;
    a: arr;
 
function maxx(var c: arr):coord;
var k: integer;
    max: real;
begin
  maxx.x := 1;
  maxx.y := 1;
  max := c[1, 1];
  for k := 1 to n do
    begin
      if c[k, k] > max
        then
          begin
            max := c[k, k];
            maxx.x := k;
            maxx.y := k
          end;
      if c[k, n - k + 1] > max
        then
          begin
            max := c[k, n - k + 1];
            maxx.x := k;
            maxx.y := n - k + 1
          end
    end
end;
 
procedure swap(x, y: integer);
var buf: real;
begin
  buf := a[n div 2 + 1, n div 2 + 1];
  a[n div 2 + 1, n div 2 + 1] := a[x, y];
  a[x, y] := buf;
end;
 
begin
  randomize;
  writeln('Array:');
  for j := 1 to n do
    begin
      for i := 1 to n do
        begin
          a[i, j] := random * 2000 - 1000;
          write(a[i, j]:8:2)
        end;
      writeln
    end;
  imax := maxx(a);
  writeln('max = a[', imax.x, ', ', imax.y, '] = ', a[imax.x, imax.y]:8:2);
  swap(imax.x, imax.y);
  writeln('Result array:');
  for j := 1 to n do
    begin
      for i := 1 to n do write(a[i, j]:8:2);
      writeln
    end;
  readln
end.