Witam,
mam problem z kodem w Pascalu, do sortowania liczb metodą krok po kroku.
Kompiluje się, ale ni jak nie chce działać, nie wiem już gdzie leży błąd, jeżeli ktoś może niech mnie oświeci.
program sort_krok;
uses crt;
var i,j,min,tymczasowa: integer;
tablica: array[1..5] of integer;
BEGIN
clrscr;
writeln('Podaj liczbe: ');
for i:=1 to 5 do
readln(tablica[i]);
for i:=1 to 5 do begin
min:=tablica[i];
for j:=2 to 5 do begin
if min > tablica[j] then begin
tymczasowa:=tablica[i];
tablica[i]:=tablica[j];
tablica[j]:=tymczasowa;
end;
end;
end;
writeln('Posortowane liczby: ');
for i:=1 to 5 do
writeln(tablica[i]);
repeat until keypressed;
END.
Proszę o wskazówkę, bo ja już nie wiem.