Песни о Паскале

p1:= Que; p2:=p1;
{ если в очереди только один элемент, цикл не выполнится ни разу! }
while Assigned(p1^.mNext) do begin
      p2:=p1;       { текущий }
      p1:=p1^.mNext; { следующий }
end;
{ теперь p1 указывает на первый элемент очереди, а p2 – на второй
      (или на тот-же самый, если в очереди всего один элемент) }
arg:= p1^.mStr;       { извлекаем данные }
if p1=p2       { если в очереди был один элемент… }
      then Que:= nil       { очередь стала пустой }
      else p2^.mNext:= nil; { а иначе "отцепляем" первый элемент }
Dispose(p1);       { освобождаем память первого элемента }
end;
end;
var
Boys : PRec; { очередь мальчиков }
Girls : PRec; { очередь девочек }
S1, S2 : String; { строки с именами }
Boy: boolean; { признак чтения имени мальчика }
F_In, F_Out : Text; { входной и выходной файла }
begin       {--- Главная программа ---}
{ Очищаем очереди мальчиков и девочек }
Boys := nil ; { очередь мальчиков }
Girls := nil; { очередь девочек }
Assign(F_In, 'P_56_2.in'); Reset(F_In);
Assign(F_Out,'P_56_2.out'); Rewrite(F_Out);
{ Цикл обработки входного потока }
while not Eof(F_In) do begin
Readln(F_In, S1); { выбираем имя из входного потока }
Boy:= S1[1]<>' '; { строки с именами девочек начинаются с пробела! }
while S1[1]=' ' do Delete(S1,1,1);
if Boy
      then begin { если это мальчик…}
      if GetFromQue(Girls, S2)       { если в очереди есть девочка }
      then Writeln(F_Out,S1+' + '+S2) { пару -> в выходной поток }
      else PutInQue(Boys, S1); { а иначе мальчика в очередь }
      end
      else begin { а если это девочка…}
      if GetFromQue(Boys, S2)       { если в очереди есть мальчик }
      then Writeln(F_Out,S2+' + '+S1) { пару -> в выходной поток }
      else PutInQue(Girls, S1); { а иначе девочку в очередь }
end
end;
Close(F_In); Close(F_Out);