Po raz kolejny proszę o pomoc,wczytuje z pliku element i po wciśnięciu klawisza pojawia się kolejny element. Problem polega na tym że wyświetla ten sam element ;(
program odczyt;
uses crt;
type
garaz=^car;
car=record
model:string[20];
marka:string[20];
rok:string[4];
end;
var
a:file of car;
b:array [1..10] of car;
c:^integer;
d:string;
numer:integer;
y:char;
p:char;
begin
new(c);
c^:=1;
repeat
y:=readkey;
if y=#0 then begin y:=readkey end;
if (y='H') and (c^<9) then
begin
c^:=c^+1;
assign(a,'car.dat');
reset(a);
read(a,b[c^]);
close(a);
writeln(b[c^].model);
writeln(b[c^].marka);
writeln(b[c^].rok);
end;
if (y='P') and (c^>0) then
begin
c^:=c^-1;
assign(a,'car.dat');
read(a,b[c^]);
close(a);
writeln(b[c^].model);
writeln(b[c^].marka);
writeln(b[c^].rok);
end;
until numer=10;
dispose(c);
end.