Graficzna wizualizacja sortowania

0

Witam, mam za zadania zrobić graficzna wizualizacje różnych sortowań. Tak wygląda mój kod dla sortowania bąbelkowego:

procedure babelkowe(var tab: array of Integer);{sortowanie babaelkowe}
var
 i,j,k,temp:integer;
 bat:  array [1..maxtab] of Integer;  {tablica pomocnicza}
begin
 for i:=1  to maxtab-1 do
 begin
  for j:=i+1 to maxtab do
   begin
        if (tab[i]>tab[j]) then
           begin
                Temp:=tab[i];
                tab[i]:=tab[j];
                tab[j]:=Temp;
           end;
{tutaj wlasnie bedzie "wizualizacja" tego sortowania}
        for k:=1 to maxtab do
        begin
             if(tab[k]=bat[k]) then
                write(' ', tab[k])
             else
               begin
                   textcolor(4);
                   write(' ', tab[k]);
               end;
        end;{tutaj do drugiej tablicy przypisuje elementy pierwszej}
        for k:=1 to maxtab do bat[k]:=tab[k];
       
       writeln;
   end;
 end;
end;

Jak widać chodzi mi o to, że do drugiej tablicy przy każdym powtórzeniu pętli przypisuje elementy pierwszej. I jeśli one się powtarzają, to wtedy mają biały kolor, zaś jeśli się różnią, to zmieniają kolor na czerwony. problem polega na tym, że kolor się zawsze zmienia na czerwony. Mógłby ktoś doradzić jak to naprawić?

2

Przed drugim write podać textcolor(7);

1 użytkowników online, w tym zalogowanych: 0, gości: 1