[PASCAL] Problem z programem

[radzym94]

Witam , nie wiem , czy jest to odpowiedni dział , ale chciałem spróbować.
A więc,tworzę program bazy danych komisu samochodowego i napisałem mam taką oto procedurę wczytywania danych na ekran.

Kod: Zaznacz cały

procedure u;   {procedura wczytywania danych z pliku}
var i,a:byte;
begin
assign(p,'komis.dat');
reset(p);
while not eof(p) do
begin
read(p,o[i]); {wczytuje zawaratosc talicy do pliku}
with o[i] do
begin
writeln;
write('Marka: ');
writeln(o[i].marka);
write('Model: ');
writeln(o[i].model);
write('Rocznik: ');
writeln(o[i].rocznik);
write('Rodzaj silnika: ');
writeln(o[i].silnik);
write('Pojemnosc: ');
writeln(o[i].pojemnosc);
write('Cena: ');
writeln(o[i].cena);

end;
end;
close(p);
readkey;readkey;
end;

Chciałbym dodać do programu takie coś, aby można było wprowadzone dane przeglądać za pomoc strzałek, bo teraz mam tak ,że po prostu dane które wprowadziłem są masowo wszystkie wrzucane na ekran i niektóre są ucięte.Mam nadzieję ,że w miarę dobrze to wytłumaczyłem.W razie niejasności odpowiem na pytania.Liczę na pomoc i z góry dziękuję

[Xitami]

Kod: Zaznacz cały

procedure wyświetl(odNr, ile);
begin
	assign(p, ... 
	reset(p,...
	seek(p, odNr);
	for i:=1 to ile do begin
		read(p,....
		write(...
		...
	end;
	close(p)
end