Задано 2 массива, содержащих по 5 чисел. Сформировать новый массив, включая в него сначала все элементы первого массива, затем все элементы второго массива. в паскале

var a,b:array [1..5] of longint; c:array [1..10] of longint; i:integer; begin {for i:=1 to 5 do begin read(a[i]); end; for i:=1 to 5 do begin read(b[i]); end;}  Это раскомментировать, если надо считывать массив из файла for i:=1 to 10 do begin if i<6 then c[i]:=a[i] else  c[i]:=b[i-5]; end; end. // В массив c записываются значение массивов a,b