Конкатенация массивов - Pascal

Формулировка задачи:

Напишите программу, которая запрашивает и вводит с экрана два линейных массива действительных чисел не более 50 членов(возможно разное количество членов)получает из них третий, путем приписывания членов массива введенного вторым после членов массива введенного первым затем программа выводит полученный массив очень буду признателен=) Пожалуйста напишите , если можно от начала до конца )

Решение задачи: «Конкатенация массивов»

Листинг программы

const nmax=50;
var a,b,c:array[1..2*nmax] of real;
    na,nb,nc,i:byte;
begin
clrscr;
randomize;
repeat
write('Размер массива A до ',nmax,' na=');
readln(na);
until na in [1..nmax];
writeln('Массив A:');
for i:=1 to na do
 begin
  a[i]:=10*random;
  write(a[i]:0:2,' ');
 end;
writeln;
writeln;
repeat
write('Размер массива B до ',nmax,' nb=');
readln(nb);
until nb in [1..nmax];
writeln('Массив B:');
for i:=1 to nb do
 begin
  b[i]:=10*random+10;
  write(b[i]:0:2,' ');
 end;
writeln;
writeln;
nc:=0;
for i:=1 to na do
 begin
  nc:=nc+1;
  c[nc]:=a[i];
 end;
for i:=1 to nb do
 begin
  nc:=nc+1;
  c[nc]:=b[i];
 end;
writeln('Объединенный массив C:');
for i:=1 to nc do
write(c[i]:0:2, ' ');
readln
end.

Объяснение кода листинга программы

Объявлены константы и переменные:
- nmax - максимальное значение размера массива
- a, b, c - массивы для хранения данных
- na, nb, nc - переменные для хранения количества элементов массива
- i - счетчик для итерации по элементам массива
Задается размер первого массива (массив A) и выводятся его элементы
Задается размер второго массива (массив B) и выводятся его элементы
Инициализируется объединенный массив C нулевыми значениями
В цикле перебираются элементы первого массива (массив A) и копируются в объединенный массив C
В цикле перебираются элементы второго массива (массив B) и копируются в объединенный массив C
Выводятся элементы объединенного массива C
Программа ожидает ввода пользователя для завершения работы