Witam, piszę zaliczenia na programowanie, w którym to program pobiera pytania do testu z pliku txt.
Jednak po skompilowaniu program wpada w nieskończoną pętle oraz nie wyświetla zawartości pliku txt.
Według mnie program powinien działać. Mógłbym ustawić na sztywno pytania w środku exe, jednak według mnie ładniej będzie wyglądało, gdy będzie można ładnie edytować pytania.
program lospyt;
uses
crt;
var
x, y, z, w, g, d: LongInt ;
a: String;
Plik: Text;
begin
writeln('Sprawdzenie czy program działa');
readln;
assign(Plik,'pytania.txt');
reset(Plik);
while not eof(Plik) do
begin
writeln('Sprawdzenie petli');
read(Plik,a);
writeln(a); // w tym miejscu wyświetla pusty wiersz, a powinien to co znajduje sie w pliku
end;
readln;
close(Plik);
end.
Mam nadzieję, iż ktoś wytłumaczy mi gdzie popełniłem błąd.
Plik txt oczywiście jest zapełniony.
sformatowanie kodu - fp