Удалить из одномерного массива максимальный элемент и сжать массив

var
  arr: array[1..10] of integer;
  n: integer;
 
procedure create_mas(var arr: array[1..10] of string; n: integer);
var
  i: integer;
begin
 for i := 0 to n - 1 do
  SetLength(arr[i], n);
 
end;
 
procedure vyvod(arr: array[1..10] of integer; n: integer);
var
  i: integer;
begin
  for i := 0 to n - 1 do 
    write(arr[i]:4);
end;
 
procedure del_max(var arr: array[1..10] of integer; var n: integer);
var
  i, j, max, index: integer;
begin
  // èùåì ìàêñèìóì
  max := arr[0];
  for i := 0 to n - 1 do // öèêë ïî âñåìó ìàñèâó
    if max < arr[i] then
      max := arr[i];
  // óäàëÿåì âñå ìàêñèìóìû
  index := 0; // êîëè÷åñòâî óäàëåííûõ ìàêñèìóìîâ
  for i := 0 to n - 1 do 
   if arr[i] = max then // åñëè íàòêíóëèñü íà ìàêñèìóì
    begin
      index := index + 1;
      for j := i  to n - 1 - index do 
        arr[j] := arr[j + 1]; // ñìåùàåì âëåâî íà 1 ïîçèöèþ âñå ýëåìåíòû ïîñëå ìàêñèìóìà
    end;
  n := n - index; // óìåíüøàåì ðàçìåðíîñòü ìàññèâà íà êîëè÷åñòâî óäàëåííûõ
  SetLength(arr[i], n);  // "óêîðà÷èâàåì" ìàññèâ
end;
 
begin
  randomize;
  write('Vvedite kolichestvo elementov: ');
  readln(n); 
  create_mas(arr, n);
  writeln('Ishodnyj massiv');
  vyvod(arr, n);
  del_max(arr, n);
  writeln;
  writeln('Konechnyj massiv');
  vyvod(arr, n);
end.

uses crt;
type mas=array[1..10] of integer;
procedure create_mas(var arr:mas;var n: integer);
var
  i: integer;
begin
for i :=1 to n do
arr[i]:=random(10);
end;
 
procedure vyvod(arr:mas; n: integer);
var
  i: integer;
begin
  for i := 1 to n do
  write(arr[i]:4);
  writeln;
end;
 
procedure del_max(var arr:mas; var n: integer);
var
  i, j, max: integer;
begin
  // ищем максимум
  max := arr[1];
  for i := 1 to n  do // цикл по всему масиву
  if max < arr[i] then max := arr[i];
  writeln('Максимальный элемент=',max);
  // удаляем все максимумы
  i:=1;
  while i<=n do
  if arr[i]=max then
   begin
    for j:=i to n-1 do
    arr[j]:=arr[j+1];
    n:=n-1;
   end
  else i:=i+1;
end;
var arr:mas;
    n:integer;
begin
  randomize;
  write('Vvedite kolichestvo elementov: ');
  readln(n);
  create_mas(arr, n);
  writeln('Ishodnyj massiv');
  vyvod(arr, n);
  del_max(arr, n);
  writeln;
  writeln('Konechnyj massiv');
  vyvod(arr, n);
end.