Динамические структуры данных, даны 2 непустые очереди, объеденить очереди Опции

[Ilius]

Даны две непустые очереди; адреса начала и конца первой равны P1 и P2, а второй - P3 и P4. Элементы каждой из очередей упорядочены по возрастанию (в направлении от начала очереди к концу). Объеденить очереди в одну с сохранением упорядочености элементов. Вывести указатели P5 и P6 на начало и конец полученной очереди. Операции выделения и освобождения памяти не использовать, поля data не изменять.

[Ilius]

Проверте пожалуста правильно ли решено:

 program ochered_n15;
type    och=^elem;
        elem=record
        data:char;
        next:och
        end;
var p1,p2,p3,p4,p5,p6:och;
    im,i1,i2:char;
    j,k:integer;
procedure v(b,e:och;i:char);
      var x:och;
      begin x^.data:=i;
            x^.next:=nil;
            if b=nil then b:=x
                     else e^.next:=x;
            e:=x
      end;
procedure iz(b,e:och;i:char);
      var x:och;
      begin if b<>nil then
            begin i:=b^.data;
                  x:=b;
                  b:=b^.next;
                  dispose(x)
            end;
      end;
begin j:=-1; k:=0;
      repeat writeln('введите элемент первой очереди, окончание ввода - "?"');
             readln(i1);
             v(p1,p2,i1);
             j:=j+1;
      until i1='?';
      iz(p1,p2,i1);
      repeat writeln('введите элемент второй очереди, окончание ввода - количество элементов очередей равно');
             readln(i2);
             v(p3,p4,i2);
             k:=k+1;
      until j=k;
      repeat

             iz(p1,p2,im);
             v(p5,p6,im);
              writeln(im);
             iz(p3,p4,im);
             v(p5,p6,im);
              writeln(im);
             k:=k+1;
      until p1=nil;
end.