Задано 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