Неправильно рассчитывается максимальное значение, в чем может быть ошибка?

program zadanie2;
 uses crt;
 
 type mas = array[1..1000] of integer;
 var
 a,b,c:mas;
 x,y,z,max:real;
 i,m,n,q:integer;
 function SredMas(p:mas; k:integer):real;
 var
 i :integer;
 s: real;
 begin
 s:=0;
 for i:=1 to j do
 s:=s+p[i];
 SredMas:=s/j;
 end;
 begin
 clrscr;
 write('N:');
 readln(n);
  writeln ('Введите массив A:');
 for i:=1 to n do begin
 read(a[i]);
 end;
 write('N:');
 readln(n);
 writeln('Введите массив B:');
 for i:=1 to n do begin
  read(b[i]);
 end;
 write('N:');
 readln(n);
 writeln('Введите массив C:');
 for i:=1 to n do begin
 read(c[i]);
 end;
 write('введите m: '); readln(m);
 write('Введите n: ');readln(n);
 write('Введите q: ');readln(q);
 for i:=1 to j do begin
 x:=SredMas(a,m);
 y:=SredMas(b,n);
 z:=SredMas(c,q);
 end;
 if (x>y) and (x>z)then x:=max;
 if (y>x) and (y>z)then y:=max else max:=z;
 writeln('Вывод: ',max);
 end.

program zadanie2;
 
uses crt;
 
type
  mas = array[1..1000] of integer;
 
var
  a, b, c: mas;
  x, y, z, max: real;
  i, m, n, q: integer;
 
function SredMas(p: mas; k: integer): real;
var
  i: integer;
  s: real;
begin
  s := 0;
  for i := 1 to k do
    s := s + p[i];
  SredMas := s / k;
end;
 
begin
  clrscr;
  write('N:');
  readln(n);
  writeln('Введите массив A:');
  for i := 1 to n do 
  begin
    read(a[i]);
  end;
  write('N:');
  readln(n);
  writeln('Введите массив B:');
  for i := 1 to n do 
  begin
    read(b[i]);
  end;
  write('N:');
  readln(n);
  writeln('Введите массив C:');
  for i := 1 to n do 
  begin
    read(c[i]);
  end;
  write('введите m: ');readln(m);
  write('Введите n: ');readln(n);
  write('Введите q: ');readln(q);
  //for i := 1 to j do 
  begin
    x := SredMas(a, m);
    y := SredMas(b, n);
    z := SredMas(c, q);
  end;
  if (x > y) and (x > z) then 
    max := x
  else
  if (y > x) and (y > z) then 
    max := y 
  else 
    max := z;
  writeln('Вывод: ', max);
end.