pascal односвязный список

[fawr]

не могу понять в чём проблема - первый раз выводило найденные по запросу записи а с последующим запуском не хочет... взгляните пожалуйста

program bazaDannix;
uses
 crt;
type
 year=1990..2050;
 list=^data;
 data=record
       y:year;
       next:list;
       nomer:integer;
       model,cvet,fio:string;
      end;
 
procedure vvod(filename:string; var baza:list; var c:integer);
var
 fin:text;
 znach1:string;
 znach2:integer;
begin
 assign(fin,filename+'.txt');
 reset(fin);
 while not eof(fin)  do
 begin
  inc(c);
  readln(fin,znach1);
  baza^.model:=znach1;
  readln(fin,znach2);
  baza^.nomer:=znach2;
  readln(fin,znach1);
  baza^.cvet:=znach1;
  readln(fin,znach1);
  baza^.fio:=znach1;
  readln(fin,znach2);
  baza^.y:=znach2;
  baza:=baza^.next;
  readln(fin);
 end;
end;
 
procedure a(baza:list; c:integer);
var
 i:integer;
begin
 for i:=1 to c do
  if baza^.y < 2010 then
  begin
   writeln(baza^.model);
   writeln(baza^.nomer);
   writeln(baza^.cvet);
   writeln(baza^.fio);
   writeln(baza^.y);
   baza:=baza^.next;
  end
  else
   baza:=baza^.next;
 readln;
end;
 
procedure b(baza:list; c:integer);
var
 i:integer;
begin
 for i:=1 to c do
  if (baza^.model='BMW') and (baza^.cvet='red') then
  begin
   writeln(baza^.fio);
   baza:=baza^.next;
  end
  else
   baza:=baza^.next;
 readln;
end;
 
procedure v(baza:list; c,n:integer);
var
 i:integer;
begin
 for i:=1 to c do
  if baza^.nomer=n then
  begin
   writeln(baza^.model);
   writeln(baza^.nomer);
   writeln(baza^.cvet);
   writeln(baza^.fio);
   writeln(baza^.y);
   baza:=baza^.next;
  end
  else
   baza:=baza^.next;
 readln;
end;
 
var
 filename:string;
 baza:list;
 c,n:integer;
 key:char;
begin
 repeat
 clrscr;
 writeln('================================================================');
 writeln('menu');
 writeln('1) vvesti bazy dannix iz fayla');
 writeln('2) dannie o vsex mashinax ne prowedwix texosmotr v tekywem gody');
 writeln('3) dannie o vladelcax BMW 4ernogo cveta');
 writeln('4) po nomery mawini vivesti vsu informaciu');
 writeln('5) exit');
 writeln('================================================================');
 key:=readkey;
 case key of
  '1':begin
       writeln('vvedite im9 fayla');
       readln(filename);
       vvod(filename,baza,c);
      end;
  '2':a(baza,c);
  '3':b(baza,c);
  '4':begin
       writeln('vvedite nomer avtomobil9');
       readln(n);
       v(baza,c,n);
      end;
 end;
 until key='5';
 
end.

окиньте взглядом!

[Stilet]

Смотри внимательно:

       new(baza);
       vvod(filename,baza,c);

А выше

procedure vvod(filename:string; abaza:list; var c:integer);
var
 fin:text;nbaza:list
 znach1:string;
 znach2:integer;
begin
 assign(fin,filename+'.txt');
 reset(fin);
 while not eof(fin)  do
 begin
  inc(c);
  readln(fin,znach1);
  abaza^.model:=znach1;  readln(fin,znach2);
  abaza^.nomer:=znach2;  readln(fin,znach1);
  abaza^.cvet:=znach1;   readln(fin,znach1);
  abaza^.fio:=znach1;    readln(fin,znach2);
  abaza^.y:=znach2;
  readln(fin);
  new(nbaza);
  abaza^.next:=nbaza;
  abaza:=nbaza
 end;
end;

Понял?

[fawr]

попробовал сделать так во всех процедурах... что-то нет изменений... может не так сделал...
вы имеете ввиду что проблема с указателем есть?

[Stilet]

Ну ты я вижу совсем методички не понимаешь

writeln('3) dannie o vladelcax BMW 4ernogo cveta');

А тут написано:

if (abaza^.model='BMW') and (abaza^.cvet='red') then  begin

Ничего не смущает?

Да и потом. вывод не через цикл делай

procedure b(abaza:list; c:integer);
var
 nbaza:list;
 i:integer;
begin
 while abaza<>nil do begin
  if (abaza^.model='BMW') and (abaza^.cvet='black') then  begin
   writeln(abaza^.fio);
  end;
  abaza:=abaza^.next;
 end;
 readln;
end;

procedure v(abaza:list; c,n:integer);
var
 nbaza:list;
 i:integer;
begin
  while abaza<>nil do begin
    if abaza^.nomer=n then  begin
     writeln(abaza^.model);
     writeln(abaza^.nomer);
     writeln(abaza^.cvet);
     writeln(abaza^.fio);
     writeln(abaza^.y);
     abaza:=abaza^.next;
    end;
  end;
 readln;
end;