Блок-схема шейкер сортировки. Программка для их создания выдает что то про отсутствие класса.

[Ирина Андреевна Пс]

procedure TfrTasks.btSortClick(Sender: TObject);
var Arr: array of integer;
  i: integer;
begin
  if (lbArrayToSort.Items.Count = 0) then exit;

  SetLength(Arr, lbArrayToSort.Items.Count);

  for i := 0 to lbArrayToSort.Items.Count - 1 do
    Arr[i] := StrToInt(lbArrayToSort.Items.Strings[i]);

  ShakeSort(Arr, 0, lbArrayToSort.Items.Count-1);

  lbArrayToSort.Clear;
  for i := 0 to Length(Arr) - 1 do
    lbArrayToSort.Items.Add(IntToStr(Arr[i]));

  SetLength(Arr, 0);
end;

В поле блоксхем можно писать сами команды