Создать одномерный массив,удалив предшествующие минимальному элементу

const m = 20;
var
  a: array [1..m] of byte;
  i,n: byte;
begin
  randomize;
  for i := 1 to m do
  begin
    a[i] := random(200);
    write(a[i],' ')
  end;
  writeln;
  n := 1;
  for i := 2 to m do
    if a[n] > a[i] then n := i;
  for i := n - 1 downto 1 do
    a[i] := 0;
  for i := 1 to m do
    write(a[i],' ');
  readln
end.

const m = 20;
var
  a: array [1..m] of ^byte;
  i,n: byte;
begin
  randomize;
  for i := 1 to m do
  begin
    new(a[i]);
    a[i]^ := random(200);
    write(a[i]^,' ')
  end;
  writeln;
  n := 1;
  for i := 2 to m do
    if a[n]^ > a[i]^ then n := i;
  for i := n - 1 downto 1 do
    a[i] := nil;
  readln
end.

uses
  Crt;
const
  N = 10;
var
  Nmax, min, i: integer;
  a: array [1..N] of integer;
begin
  ClrScr;
  Randomize;
  Nmax := N;
  min := 1;
  WriteLn('Array A:');
  for i := 1 to Nmax do
  begin
    a[i] := Random(8) - 4;
    if a[i] < a[min] then
      min := i;
    Write(a[i], ' ');
  end;
  WriteLn;
  WriteLn('a[', min, '] = ', a[min], ' - ýòî ìèíèìàëüíûé ýëåìåíò ìàññèâà');
  for i := min to Nmax do
    a[i - min + 1] := a[i];
  Dec(Nmax, min - 1);
  WriteLn('Result:');
  for i := 1 to Nmax do
    Write(a[i], ' ');
  ReadLn;
end.