Двухвязный список

[Роман5день55]

Нужно переделать програму на програму с процедурой. Штоб количество записей не нужно било вводить в цикле, а вивод совершалса автоматически при введении 0.

program spusok;
uses Crt;
type sp = ^rec;
    rec = record
      pib:string[25];
      tel:string[15];
      money:integer;
      v:sp;
    end;
var current,prior,next:sp;
   i: integer;
begin
  new(current);
  write('vvedit.PIB ');readln(current^.pib);
  write('vvedit.money ');readln(current^.money);
  write('vvedit.tel ');readln(current^.tel);
  current^.v := nil;
  prior := current; next := current;
    for i := 2 to 3 do
      begin
        new(current); prior^.v := current;
        write('vvedit.PIB ');readln(current^.pib);
        write('vvedit.money ');readln(current^.money);
        write('vvedit.tel ');readln(current^.tel);
        current^.v := nil; prior := current;
      end;
    write('vuvid spusky');
    if current <> nil then
  begin
  current := next;
  while current <> nil do
  write('PIB ', current^.pib,'TEL',current^.tel,'Money', current^.money);
  end;
  readln;
end.