Matematické Fórum

procedure TForm1.Button1Click(Sender: TObject);
var i,j,n,x: Integer;
    s: String;
    a,b,v: array of Integer;
begin
  Memo1.Clear;
  Memo1.Lines.Add('Zadaná posloupnost:');
  Randomize;
  n := SpinEdit1.Value;
  x := SpinEdit2.Value;
  SetLength(a,n);
  for i := 0 to n-1 do
  begin
    a[i] := Random(30)+1;
    s := s+ IntTostr(a[i])+'  ';
  end;
  Memo1.Lines.Add(s);
  SetLength(b,0); Setlength(v,0);
  for i := 1 to x do
  begin
    SetLength(v,Length(v)+1);
    if Length(a)>0 then
      v[Length(v)-1] := a[0]
    else
    begin
      Memo1.Lines.Add('Špatné zadání - nejde');
      Exit;
    end;
    SetLength(b,0);
    for j := 1 to Length(a)-1 do
      if a[j]<>v[Length(v)-1] then
      begin
        SetLength(b,Length(b)+1);
        b[Length(b)-1] := a[j];
      end;
    a := b;
  end;
  s := '';
  Memo1.Lines.Add('Výsledek:');
  for i := 0 to Length(v)-1 do
    s := s+ IntTostr(v[i])+'  ';
  Memo1.Lines.Add(s);
end;