подпрограммы - функция

program dsadas;
uses crt;
Const N=30;
   Var A: array[1..N] of integer;
   i: integer;
   p:real;
     function funcmax(x:integer):real;
        begin
        randomize;
        for x:=1 to n do a[x] := random(3);
        writeln (' a[1-30] ');
        for x:=1 to n do
         write ('a[',x,']=',a[x],'  ');
         writeln;
      p:=1;
      For x:=1 to N do
     p:=p+(a[x]+a[30-x+1]);
  writeln('otvet ');
  write('p = ',p);
  writeln;
    end;
           begin
           p:=funcmax(i)
end.

const
  MAX = 100; W = 4;
  N = 30;
var
  a: array [1..30] of integer;
  i, m: integer;
begin
  Randomize;
  for i := 1 to n do begin
    a[i] := Random(MAX);
    Write(a[i]:W);
  end;
  WriteLn;
  m := a[1] + a[n];
  for i := n div 2 downto 2 do
    if a[i] + a[1 + n - i] > m then
      m := a[i] + a[1 + n - i];
  WriteLn('max = ', m);
end.

const
  MAX = 100; W = 4;
  N = 30;
var
  a: array [1..30] of integer;
  i, m, t: integer;
begin
  Randomize;
  for i := 1 to n do begin
    a[i] := Random(MAX);
    Write(a[i]:W);
  end;
  WriteLn;
  m := a[1] + a[n];
  for i := n div 2 downto 2 do begin
    t := a[i] + a[1 + n - i];
    if t > m then m := t;
    WriteLn('a[', i, '] + a[', 1 + n - i, '] = ', t);
  end;
  WriteLn('max = ', m);
end.