Witam. Dzisiaj mam problem z exitcode 101.
W moim programie miał pobierać 13 danych od użytkownika. I zapisać do pliku tekstowego, jak zapisze miał odczytać z pliku tekstowego i wypisać na ekranie.
Program wywala błąd przy procedurze, która teoretycznie miała wczytywać dane z pliku tekstowego. Działam na Free Pascal IDE.
read(f,tablica[i]);
A oto program.
program nazwa;
uses crt;
Type
Dane=record
Imie:string[20];
Nazwisko:string[40];
Data_urodzenia:string[60];
Data_imienin:string[60];
end;
var f:file of Dane;
tablica:array[1..13] of dane;
procedure zapisywanie;
var i:integer;
begin
Clrscr;
writeln('Zapisywanie danych:' );
for i:=1 to 13 do
with tablica[i] do
begin
writeln('Podaj dane o ',i,' uczniu: ');
writeln('Podaj imie: ');
readln(imie);
writeln('Podaj nazwisko : ');
readln(nazwisko);
writeln('Podaj date urodzenia: ');
readln(Data_urodzenia);
writeln('Podaj date imienin: ');
readln(Data_imienin);
end;
end;
procedure zapisywanie_do_pliku;
var i:integer;
begin
assign(f,'Dane.txt');
rewrite(f);
for i:=1 to 13 do write(f,tablica[i]);
writeln('Utworzylem plik z danymi, o nazwie Dane.txt');
writeln('Aby kontynuowac wcisnij ENTER');
readln;
close(f);
end;
procedure wypisz;
var i:integer;
begin
writeln('Podaj numer osoby, ktora chcesz zobaczyc dane: ');
readln(i);
// WARUNEK
assign(f,'dane.txt');
reset(f);
read(f,tablica[i]);
with tablica[i] do
begin
writeln('Imie: ');
readln(imie);
writeln('Nazwisko : ');
readln(nazwisko);
writeln('Data urodzenia: ');
readln(Data_urodzenia);
writeln('Data imienin: ');
readln(Data_imienin);
close(f);
end;
end;
begin
zapisywanie;
zapisywanie_do_pliku;
wypisz;
end.