Zadání:

Vytvořte funkci pro posun prvků pole o jedničku doleva, přičemž evidujte délku pole

Procedure Move(Position:byte;var Pole:tRecArr);
{Procedura posune vsechny prvky pole od pozice napravo o jednicku doleva.
 Posledni znak je nahrazen 0 a delka pole se snizi o 1.}
var i:byte;
begin {Move}
  with Pole do begin
    for i:=Position to Delka-1 do Pole[i]:=Pole[i+1];
    Pole[Delka]:=0;
    Delka:=Delka-1;
  end; {with}
end; {Move}
  

Zadání:

Vytvořte operaci, která odstraní opakující se prvky pole

Procedure Reduce(var Arr:tRecArr);
{Procedura odstrani opakujici se vyskyty stejnych cisel v poli.}
var i,j:byte;
begin {Reduce}
  with Arr do begin
    i:=1;
    j:=2;
    while i< Delka do begin
      while j < =Delka do begin
        while (Pole[i]=Pole[j])and(i < =Delka)and(j < =Delka) do Move(j,Arr);
        inc(j);
      end; {while j < = Delka}
      inc(i);
      j:=i+1;
    end; {while i < Delka}
  end; {with}
end; {Reduce}