Сформировать массив

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,windows;
type
  TArray = array of Integer;
var
  InputMas,KeyMas:TArray;
 
procedure ReadMas(var Mas:TArray);
var n,i:Integer;
begin
  Writeln('Размерность = ');
  Readln(n);
  SetLength(Mas,n);
  for i:=0 to n-1 do Mas[i]:=Random(40);
end;
 
procedure WriteMas(Mas:TArray);
var n,i:Integer;
begin
  n:=Length(Mas);
  for i:=0 to n-1 do Write(Mas[i],' ');
  Writeln;
end;
 
procedure Task(var InputMas:TArray; var KeyMas:TArray);
var
  size1,size2,i,j:Integer;
begin
  size1:=Length(InputMas);
  size2:=Length(KeyMas);
  if size2>=size1
  then
    for i:=0 to size1-1 do InputMas[i]:=KeyMas[i]
  else
    begin
      j:=0;
      for i:=0 to size1-1 do
        begin
          InputMas[i]:=KeyMas[j];
          inc(j);
          if j=size2 then j:=0;
        end;
    end;
 
end;
 
begin
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);
  Writeln('ВВОД - Входной массив');
  ReadMas(InputMas);
  Writeln('ВВОД - Массив КЛЮЧ');
  ReadMas(KeyMas);
  Writeln('Входной массив');
  WriteMas(InputMas);
  Writeln('Массив КЛЮЧ');
  WriteMas(KeyMas);
  Writeln('После выполнения задачи');
  Task(InputMas,KeyMas);
  WriteMas(InputMas);
  Readln;
end.