Сформировать новый массив В, переписав в него элементы массива А, кроме нулевых

program Project1;
 
const
  M = 10;
var
  A, B : array[1..M] of Integer;
  i, j, k : Integer;
  S : String;
begin
  repeat
    Writeln('Задайте элементы массива:');
    i := 1;
    while i <= M do begin
      Write('Элемент ', i, ' : ');
      Readln(A[i]);
      Inc(i);
    end;
    Writeln;
 
    //Решение задачи.
    j := 1;
    k := M;
    for i := 1 to M do begin
      if A[i] <> 0 then begin
        //Элементы отличные от нуля записываем в массив
        //Б от начала, в направлении слева-направо.
        B[j] := A[i];
        Inc(j);
      end else begin
        //Элементы равные нулю записываем в массив
        //Б от конца, в направлении справа-налево.
        B[k] := A[i];
        Dec(k);
      end;
    end;
 
    //Распечатываем массив Б:
    Writeln('Массив Б:');
    for i := 1 to M do begin
      if i > 1 then Write(', ');
      Write(B[i]);
    end;
    Writeln;
    Writeln;
 
    Writeln('Повторить - Enter. Выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.

program Project1;
 
const
  M = 10;
var
  A, B : array[1..M] of Integer;
  i, j : Integer;
  S : String;
begin
  repeat
    Writeln('Задайте элементы массива:');
    i := 1;
    while i <= M do begin
      Write('Элемент ', i, ' : ');
      Readln(A[i]);
      Inc(i);
    end;
    Writeln;
 
    //Решение задачи.
    j := 1;
    for i := 1 to M do begin
      if A[i] <> 0 then begin
        B[j] := A[i];
        Inc(j);
      end;
    end;
    //Дописываем нулевые значения.
    for j := i to M do B[j] := 0;
    
    //Распечатываем массив Б:
    Writeln('Массив Б:');
    for i := 1 to M do begin
      if i > 1 then Write(', ');
      Write(B[i]);
    end;
    Writeln;
    Writeln;
 
    Writeln('Повторить - Enter. Выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.