Program SOD_3;
Uses Crt;
Type Pointer=^Line;
     Line=Record
          Inf:Integer;
          Next:Pointer;
     End;
Var Head,  {голова очереди}
    Tail,  {хвост очереди}
    First, {очередной элемент очереди}
    PointerNew,P,NewP:Pointer;
    f:boolean;
    i:Integer;
    a:Real;

    j: integer;

procedure PrintQueue(Head: Pointer);
begin
  While Head <> nil Do Begin
    Write(Head^.Inf:4);
    Head := Head^.Next;
  End;
end;

{Вставка элемента в очередь}
Procedure Vstavka(Var Head,NewP,Tail:Pointer);
Var a:Real;
Begin
     f:=True;
     Repeat
           Write('Введите целое число -> ');
     {$I-}         {временно отключаем контроль ошибок ввода-вывода}
     Readln(a);
     {$I+}
     if IOResult<>0 then   {ф-ция возвращает целое значение,
  являющееся состоянием последней выполненной операции ввода-вывода}
        begin
             f:=False;
             Exit;
        end
     Until (IOResult=0)and(a>=-32768)and(a<=32767);
     New(NewP);
     If Head=Nil then       {очереди нет - создаем ее}
                     Head:=NewP
                 else
                     Tail^.Next:=NewP; {очередь есть - становимся в хвост}
                     Tail:=NewP;       {новый хвост}
                     NewP^.Inf:=trunc(a);
                     NewP^.Next:=Nil;
End;

{удаление элемента}
Procedure Udalenie(var Head,Tail:Pointer);
var First:Pointer;
Begin
     If Head <> Nil then Begin
       First:=Head; Head:=Head^.Next; Dispose(First);
       If Head = nil Then Tail := nil;
     End
     Else Writeln('Удалять нельзя, т.к. очередь пуста!')
End;

{поиск максимального элемента}
Procedure Maximal(Head,Tail:Pointer);
Var K,First:Pointer;
    max:Integer;
begin

     if Head=Nil then Writeln('Очередь пуста!')
     else begin
               K:=Head;
               First:=K^.Next;
               max:=K^.Inf;
               while First<>Nil do
                     begin
                          if max<First^.Inf then max:=First^.Inf;
                          First:=First^.Next;
                     end;
                     Writeln;
                     Writeln('Максимальный элемент: ',max);
                     Writeln;
          end;
end;

{Основной модуль}
Begin
     ClrScr;
     Head:=Nil;
     Mark(P);
Writeln;
Writeln('=================Создание очереди===================');
Writeln;
Writeln('Признак окончания ввода очереди - НЕ числовой символ');
Repeat Vstavka(Head,PointerNew,Tail) until not f;
if Head=Nil then
   begin
        Writeln('Очередь пуста!');
        Readln;
        Readln;
        Exit;
   end;
Writeln;
Writeln('Возможно произвести следующие действия:');
Writeln;
Readln;

  clrscr;

     Writeln('show     - 0');
     Writeln('add      - 1');
     Writeln('delete   - 2');
     Writeln('find max - 3');
     Writeln('exit     - 4');
     Writeln;

  window(1, 10, 80, 24);

  repeat
     repeat
     i := Ord(ReadKey) - Ord('0');
     until i in [0 .. 4];

     Case i of
     0: begin
        Writeln('Содержимое очереди:');
        PrintQueue(Head);
        Readln;
        end;

     1: begin
        Vstavka(Head,NewP,Tail);
        Writeln('Содержимое очереди:');
        PrintQueue(Head);
        Readln;
        end;

     2: begin
        Udalenie(Head,Tail);
        Writeln('Содержимое очереди:');
        PrintQueue(Head);
        Readln;
        end;

     3: begin
        Maximal(Head,Tail);
        Readln;
        end;
     end;
  until (i = 4);
  window(1, 1, 80, 25);
  Clrscr;

Readln;
Release(P); {освобождение кучи, начиная с адреса P}
End.