Заполнить очередь трехзначными натуральными числами кратными 7; сохранить содержимое в текстовом файле через точку с запятой

program z1;
uses crt;
type nodeptr=^nodetype;
nodetype=record
               number:integer;
               nextnode:^nodeptr;
end;
var
queue,top,bottom:nodeptr;
invalue:integer;
procedure in_queue(var top, bottom : nodeptr; value : integer);
var
 p: nodeptr;
begin
new(p);
p^.number:=value;
p^.nextnode:=nil;
if top =nil then top := p
   else bottom^.nextnode:= p;
   bottom :=p;
end;
procedure write_queue(queue: nodeptr);
var
 p:pnodeptr;
begin
p:= queue;
while p<>nil do
begin
write(p^.number:3);
p:=p^.nextnode;
  end;
end;
begin
queue^.nextnode:= nil;
bottom^.nextnode:= nil;
writeln('Введите элементы очереди. Завершение ввода 0');
read(invalue);
while invalue <> 0 do
begin
invalue:=5*(random(225)+24);
top:=push(top,ch);
end;
assign(f,'d:eee1.txt');
rewrite(f);
while top<>nil do begin
top:=pop(top,ch);
write(f,ch);
write(f,';');
end;
close(f);
end.