problem pascal

cześć robię program w free pascalu i gdy doszedłem do tego momentu to kompiluje bez problemu ale gdy wprowadzę już liczby to wywala mi błąd w którym jest najpierw ścieżka a potem exited with exitcode = 201 na ogół wywalało mi to gdy były jakieś błędy logiczne.

Program sortowanie;
Uses
Crt;
VAR
j,i,x,n : integer;

a:array of integer;

procedure wypisz_zmienne;

begin
j:=1;
repeat
writeln(a[j]);
j:=j+1;
until j=n;
end;

Begin
clrscr; // czyści ekran
writeln('wprowadź n'); // wyświetla napis wprowadź n
readln(n); // czeka aż użytkownik wprowadzi n
SetLength(a,n); // ustala wielkość tablicy na n
writeln('Wprowadź kolejno ',n,' liczb'); // prosi o wprowadzenie tylu liczb ile wynosi n
for j:=1 to n do read(a[j]); //wczytuje wszystkie elementy tablicy (od 1 do n)
clrscr;
j:=2; //bez kawałka kodu stąd do "wypisz_zmienne;" włącznie też wyskakuje ten błąd

if j>n then
wypisz_zmienne;

readln();

End.

 SetLength(a,n);                // ustala wielkość tablicy na n
   writeln('Wprowadź kolejno ',n,' liczb');         // prosi o wprowadzenie tylu liczb ile wynosi n
         for j:=1 to n do read(a[j]);   

1.Numerowanie tablicy zaczyna się od 0, a nie 1.
2.Robiąc np.setLength(Tablica, 10) masz dostęp do indexów: 0..9, a nie 0..10 (!).

---

Moje uwagi: ```delphi j:=1; repeat writeln(a[j]); j:=j+1; until j=n; ``` Słyszałeś o pętli "for"? Poza bym bezpieczniejszym warunkiem byłoby `j>=n`.

problem pascal

Ależ DOKŁADNY opis problemu! Gratulujemy głupoty.

cześć robię program w free pascalu i gdy doszedłem do tego momentu to kompiluje bez problemu ale gdy wprowadzę już liczby to wywala mi błąd w którym jest najpierw ścieżka a potem exited with exitcode = 201 na ogół wywalało mi to gdy były jakieś błędy logiczne.

i?

clrscr; // czyści ekran

Dzięki bo nie wiedziałem.

Poza tym nie byłeś łaskaw zadać pytania (to już nawet nikogo nie dziwi).

Ja mam do ciebie śmieszne pytania: Czy czytałeś o tym co może błąd 201 oznaczać? Pewnie nie. Czy używałeś debuggera? Pewnie nie. Czy umiesz myśleć? Pewnie nie.

Naucz się szukać odpowiedzi, a jeżeli pytasz to rób to z głową.