простая задача на очереди, я решал но она не работает Опции

[AlexSt]

Даны две непустые очереди; адреса начала и конца первой равны Р1 и Р2, а второй Р3 и Р4. Очереди содержат одинаковое количество элементов. Объединить очереди в одну, в которой элементы исходных очередей чередуются(начиная с первого элемента первой очереди). Вывести указатели Р5 и Р6 на начало и конец полученной очереди. Операции выделения и освобождения памяти не использовать.

[-Alex-]

А! вот так:

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 readln(i1);
             v(p1,p2,i1);
             j:=j+1;
      until i1='?';
      iz(p1,p2,i1);
      repeat 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.

М

При публикации программного текста, пожалуйста, используй теги: выделить текст блоком и выбрать нужный тип кода в меню CODE над окном ввода. Лопарь