Błąd związny ze zmienną w Pascalu

Question

program pszemek_11;
uses crt;
const n = 10;
var
t     : array [1..n] of integer;
i,j,k,l : integer;
procedure wyp_licz;
begin
for i := 1 to n do
 write(t[i]:3);
 writeln;
 writeln;
end;

BEGIN
clrscr;
randomize;
//ustawinie tablicy

for i := 1 to n do
t[i] := random(31);

writeln('Twoja tablica przed sortowaniem');
wyp_licz;
//sortowanie od najmniejszej do najwiekszej
for i := 2 to n do
 for j := n downto i do
 begin
  if t[j] < t[j-1] then
  begin
   k      := t[j];
   t[j]   := t[j-1];
   t[j-1] := k;
  end;
 end;

wyp_licz;

//sortowanie od najwiekszej do najmniejszej
for i := 2 to n do
 for j := n downto i do
 begin
  if t[j] > t[j-1] then
  begin
   k      := t[j];
   t[j]   := t[j-1];
   t[j-1] := k;
  end;
 end;
wyp_licz;

//losowa kolejność
for l := 1 to random(30)+3 do
 begin
 j := (random(n)+1);
 k      := t[j];
 t[j]   := t[j-1];
 t[j-1] := k;
 end;

wyp_licz;
read(k);
END.

Dzień dobry!
Napisałem program w Pascalu, który sortuje bąbelkowo od najmniejszej do największej i na odwrót oraz sotruje w losowej kolejności. Kiedy próbuję go uruchomić to czasem się odpala, ale czasem występuje error 201. Prawdopodobnie coś jest nie tak ze zmienną l.

 

Answer 1

Polecam zapoznać się z jakimś debuggerem, czy coś.

Jeśli myślisz, że na przyjaźń z debuggerem jest jescze za wcześnie, to spróbuj znaleźć błąd metodą print-it polegającą na wypisaniu jak najwięcej informacji o aktualnym stanie programu lub metodą comment-out polegającą na komentowaniu części kodu i sprawdzaniu, czy po tej operacji działa tak jak powinien.