Сложить два массива в третий

const f=1000;
var s,n,i,m,code,j,k,max: Integer;
    cg: real;
    z:string;
    a: array[1..f] of integer; b:array[1..f] of integer;c:array[1..f] of integer;
 
begin
  repeat
       writeln ('Введите кол-во элементов первого массива: ');
       Readln(Z);
       val (Z,m,code);
       if (code<>0) or(m<=0) or (m>f) then
          writeln('Ошибка')
  until (m>0) and (m<=f) and (code=0);
  writeln(' Введите элементы: ');
  for i:=1 to m do
   begin
     repeat
       writeln(' Введите A ','[',i,']'); readln (z);
       val (z,a[i],code);
       if (code<>0) or (a[i]<=0) then
           writeln('Ошибка')
     until (a[i]>0) and (code=0);
  end;
begin
  repeat
       writeln ('Введите кол-во элементов второго массива: ');
       Readln(z);
       val (z,n,code);
       if (code<>0) or(n<=0) or (n>f) then
          writeln('Ошибка')
  until (n>0) and (n<=f) and (code=0);
  writeln(' Введите элементы: ');
  for j:=1 to n do
   begin
     repeat
       writeln(' Введите B ','[',j,']'); readln (z);
       val (Z,b[i],code);
       if (code<>0) or (b[i]<=0) then
           writeln('Ошибка')
     until (b[i]>0) and (code=0);
  end;
end;
begin
  j:=1;
  k:=0;
    if m>n then max:=m
     else max:=n;
 for i:=1 to max do
   if m>n then
   begin
   c[k]:=a[i] + b[j];
   j:=j+1;
   k:=k+1;
     if j>i then j:=0
   end
  else
   begin
   c[k]:=b[j]+a[i];
   j:=j+1;
   k:=k+1;
    if j>i then j:=0;
   end;
end;
write(c[k]);
end.

end;
write(c[k]);

write(c[k]);
end;

if m>n then max:=m //это строка 44
else max:=n;
for i:=0 to (max - 1) do begin
  c[i + 1] := a[i mod m + 1] + b[i mod n + 1];
  write(c[i]);
end;