Стек и очередь

[SsAn]

Используя очередь, написать процедуру или функцию, которая меняет местами максимальный и минимальный элементы файла.

[Stilet]

А по условию задания по твоей очереди можно делать проход по элементам, не извлекая элементы очереди из головы?
Если да то:

 procedure aga;
 begin
Извлекаем очередь
 n:=1;
 while n<=i do begin
  if n=max then write(f,q[min]) else
  if n=min then write(f,q[max]) else
   write(f,q[n]);
 inc(n);
 end;
 end;

var q:array[1..100] of integer; f:file of integer;
n,i,max,min:integer;
begin
 assign(f,'file');reset(f); i:=1;max:=1;min:=1;

Забиваем очередь
 while not eof(f) do begin
  readln(f,q[i]); 
   if q[i]>a[max] then max:=i;
   if q[i]<a[min] then min:=i;
  inc(i);
 end;
 close(f);
 assign(f,'file');rewrite(f);
 aga;
 close(f);
end.

Это конечно не самый идеальный код, но предложить его я могу.