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