Сформировать массив из двух данных- Pascal(Паскаль)

type
  tElement= integer;
 
var
  a,b,c: array of tElement;
  i,na,nb: integer;
 
begin
  write('введите длины исходных массивов (два числа через пробел): ');
  readln(na,nb);
  SetLength(a,na);
  writeln('исходные данные');
  for i:=0 to na-1 do a[i]:= Random(199)-99;
  write('массив A:');
  for i:=0 to na-1 do write(a[i]:4);
  writeln;
  SetLength(b,nb);
  for i:=0 to nb-1 do b[i]:= Random(199)-99;
  write('массив B:');
  for i:=0 to nb-1 do write(b[i]:4);
  writeln;
  { формирование массива из A и B }
  SetLength(c,na+nb);
  for i:=0 to na-1 do c[i]:= a[i];
  for i:=0 to nb-1 do c[i+na]:= b[i];
  writeln('результат');
  write('массив C:');
  for i:=0 to na+nb-1 do write(c[i]:4);
  writeln;
  readln
end.