Free Pascal-problem z komendą ReadLn

Dla specjalistów Programowanie
#1

Witam

Mam problem z programem w Pascalu. Otóż mój program składa się z niezliczonej ilości komend WriteLn

i ReadLn. Właśnie z komendą ReadLn jest kłopot. W założeniu program ma wygladać jakoś tak:

writeln(tekst);

writeln(tekst);

writeln(tekst);

writeln(wcisnij enter aby przejsc do następnej strony);

readln;

Wszystko działa piękni do pewnego miejsca, w którym program się wyłącza zamiast przechodzić do następnej strony.

Zależy mi na jak najszybszym rozwiązaniu problemu, ponieważ muszę oddać pracę we wtorek a zostało jeszcze trochę kodu do wklepania : ).

Z góry dziękuję i pozdrawiam.

#2

zdajesz sobie sprawę że nie podałeś żadnej informacji, kodu ? 

#3

Jaki kompilator? Starożytny Turbo Pascal, czy może Free Pascal?

Nie wyskakuje żaden błąd? Jeśli zrobiłeś potworka z ogromną ilością WriteLn, to zawsze istnieje ryzyko, że się gdzieś pomyliłeś i np. zapomniałeś wpisać jakiejś instrukcji. Warto przyjrzeć się dokładnie okolicy gdzie występuje błąd.

 

Niby readln nie powinien stwarzać problemów, ale zawsze możesz spróbować użyć czegoś takiego:

uses crt;

procedure WaitOnEnter();
var
 ch : char;
begin
 repeat
	ch := ReadKey(); 
 until (ch = #13) or (ch = #10);
end;

Gdzie zamiast ReadLn; używasz WaitOnEnter;

#4

Nie wiem czy kompilator Pascala nie powinine sygnalizować w takim przypadku błędu, ale raczej takie coś jest niedozwolone:

readln(“a”);

 

Poza tym jakiego typu jest tekst?