Передача массива в функцию или процедуру

Второй код нормально работает. Выложил его как пример рабочего для сравнения
(может ни к чему).Просто с ним было то же, что и с первым. Что исправил не смогу
сказать потому как с ним бился дня2)) методом "тыка" и с отладчиком не понимая
до конца в чем причина.
Первый код работает если нет одинаковых значений в массиве. Если есть
одинаковые числа, что то ломается. Выяснил что в процедуре идёт смещение
номеров ячеек массива и обратился за помощью. Хочется понимать, а не применять
"научный тык"))).

for j:= i+1  to high(c) do

Такая строка тоже получилась после ошибок, из за которых
не запускалась программа.
Изначально было скорее всего так :

for j:= c[i + 1] to high (c) do

Потом как- нибудь:

for j:= low(c[i + 1] to high(c) do

В общем оставил, как работать стало. Я ж учусь)

В этом коде на строке 40( в сигнатуре функции ) при передаче массива
с именем "с" массив не меняется. А с именем "а" происходит смещение
и массив начинается с [0].

var i:integer;
a:array [1..4] of integer;

procedure moveZero(var a: array of integer; k,k2,k3,k4:integer);
var j:integer;r:array[1..4] of integer;
begin
    r:= a;
    if k4 = 4 then
      r[high(r)]:= 0;
    if k3 = 4 then
      r[high(r)]:= 0;
    if k2 = 4 then
      r[high(r)]:= 0;
    if (k4<>0) then
    begin
      for j:= k4 to 3 do
        r[j]:= r[j + 1];
      r[high(r)]:= 0;
    end
        else if k3<> 0 then
        begin
          for j:= k3 to 3 do
            r[j]:= r[j + 1];
          r[high(r)]:= 0;
        end
            else if k2 <>0 then
            begin
              for j:= k2 to 3 do
                r[j]:= r[j + 1];
              r[high(r)]:= 0;
            end
                else
                begin
                for j:= k to 3 do
                  r[j]:= r[j + 1];
                r[high(r)]:= 0;
                end;
end;

function fff( c:array of integer):integer;
var //c : array [1..4] of integer;
i,j,n,m,k,k2,k3,k4:integer;
begin
 // c:=a;
  k:= 0;
      k2:= 0;
      k3:= 0;
      k4:= 0;
  for i:= low(c) to high(c) do
  begin
    if k<>0 then
      moveZero(a,k,k2,k3,k4)
    else
    begin
      for j:= i+1  to high(c) do
      begin
        if c[i] = c[j] then
        begin
          if k = 0 then
          begin
            k:= i;
            k2:= j;
          end
          else if k3 = 0 then
            k3 := j
            else if k4 = 0 then
              k4 := j;
        end;
      end;
    end;
  end;
end;

BEGIN
 { randomize();
  for i:=low(a) to high(a) do
    a[i]:= 1 + random(15);}
  a[1]:= 1;
  a[2]:= 2;
  a[3]:= 3;
  a[4]:= 1;
  for i:=low(a) to high(a) do
    write(a[i],'|');
  fff(a);
  writeln();
  for i:=low(a) to high(a) do
    write(a[i],'|');
  readln();
END.  

В этом коде на строке 40( в сигнатуре функции ) при передаче массива
с именем "с" массив не меняется. А с именем "а" происходит смещение
и массив начинается с [0].

Но в целом вопрос понятен, подготовлю разбор

Объясните пожалуйста дополнительно в разборе зачем массиву в
объявлении переменных присваивать другое имя. То есть:

type tenArr = array [1..10] of integer;
var i,j,k,n,m:integer;
  t: tenArr;
BEGIN
  randomize();
  i:= 1;
  while ((i>=1) and (i<=10)) do
  begin
    n:= random(20);
    m:= 0;
    for j:= 1 to i do
      if t[j] = n then
        begin
          m:= 1;
          writeln('Znacheniya povtoralis :',n);
          break;
        end;
      if m = 0 then
      begin
        t[i]:= n;
        i += 1;
      end;
  end;
  for i:= low(tenArr) to high(tenArr) do
    write(t[i],'|');
  readln;
END. 

Зачем строка 3? Почему в строке 20 нельзя написать так :

tenArr[i] := n;

Удалил вопрос