Вычислить сумму максимальных элементов массивов

var L:array[1..5] of integer;
    M:array[1..8] of integer;
    N:array[1..10] of integer;
i,k:integer;
function max(x,y,z:integer):integer;
var t,k:integer;
begin
if x>y then t:=x else t:=y;
if z>t then t:=z;
max:=t;
end;
begin
randomize;
writeln('L':3,'M':3,'N':3);
L[i]:=random(5);
M[i]:=random(8);
N[i]:=random(10);
k:=max(N[i])+max(M[i])+max(L[i]);
writeln('Otvet=',k);
end.

for i:=1 to n do begin
L[i]:=random(5);
M[i]:=random(8);
N[i]:=random(10);
k:=max(N[i])+max(M[i])+max(L[i]);

uses crt;
type mas=array[1..10] of integer;
var a,b,c:mas;
    i,s:integer;
function max(var x:mas;n:integer):integer;
 var i,tmp:integer;
begin
 tmp:=x[1];
  for i:=1 to n do
   begin
    if x[i]>tmp then
     tmp:=x[i];
   end;
  max:=tmp;
end;
begin
 clrscr;
  writeln('Ìàññèâ ïåðâûé :');
   for i:=1 to 5 do
    begin
     a[i]:=random(10)-3;
     write(a[i]:4);
    end;
  writeln;
   writeln('Ìàññèâ âòîðîé :');
    for i:=1 to 8 do
     begin
      b[i]:=random(40)-12;
      write(b[i]:4);
     end;
  writeln;
   writeln('Ìàññèâ òðåòèé :');
    for i:=1 to 10 do
     begin
      c[i]:=random(60)-50;
      write(c[i]:4);
     end;
  writeln;
   writeln('Ìàêñèìàëüíûé ïåðâîãî = ',max(a,5));
    writeln('Ìàêñèìàëüíûé âòîðîãî = ',max(b,8));
     writeln('Ìàêñèìàëüíûé òðåòüåãî = ',max(c,10));
   s:=max(a,5)+max(b,8)+max(c,10);
  writeln('Ñóììà ìàêñèìàëüíûõ ýëåìåíòîâ = ',s);
 readkey;
end.