Witam, potrzebuję pomocy z tym oto kodem źródłowym:
program GAMEBASE;
uses
crt;
type
gry = record
nazwa : string[50];
end;
var
f : file of Gry;
{a,b:array [1..50] of Gry;}
games : Gry;
i, d1, x, ilosc : byte;
esc : char;
wybor : integer;
{procedure nowa_baza;
begin
assign(f,'gamebase.dat');
rewrite(f);
close(f);
end ;}
procedure nowy_wpis;
begin
clrscr;
assign(f, 'gamebase.dat');
rewrite(f);
inc(ilosc);
writeln('Nazwa gry:');
readln(games.nazwa[ilosc]);
close(f);
end;
procedure pokaz_wpisy;
begin
clrscr;
assign(f, 'gamebase.dat');
reset(f);
while not eof(f) do
begin
read(f, games);
writeln;
writeln('Nazwa gry: ', games.nazwa);
end;
writeln('Wcisnij ESC aby zakonczyc');
esc := readkey;
readln;
writeln;
close(f);
end;
begin
clrscr;
repeat
Writeln('MENU');
Writeln('1 - nowy wpis');
Writeln('2 - pokaz wpisy');
Writeln('0 - zakoncz');
Writeln(' ');
Writeln('STATYSTYKI');
Writeln('W bazie znajduje sie ', ilosc, ' gier');
Readln(wybor);
case wybor of
1 : nowy_wpis;
2 : pokaz_wpisy;
end;
until wybor = 0;
end.
Nie wiem czemu nie wyświetla mi ilości tytułów po wybraniu odpowiedniego polecenia w programie i chciałbym uzyskać pomoc w kwestii wyszukiwarki odpowiednich rekordów, że wpisuje tytuł gry i ten tytuł mi wyskakuje, oraz jak zrobić żebym mógł wprowadzić więcej informacji niż sam tytuł, np. rok wydania, producenta, etc.