no procedimento Ordenar

Pessoal estou com uma dúvida, em como fazer este procedimento escrito abaixo, verificar se a lista está ou não ordenada(apenas dizer se está ou não)

procedure ordenar(var lista1:tipolista);
var

 i,bolha,maior:integer;
 aux:tipoitem;

begin

 maior:=lista1.ultimo-1;
 while maior>1 do
	begin
 bolha:=lista1.primeiro;
 for i:=1 to maior-1 do
 begin
 if lista1.item[i].elemento >lista1.item[i+1].elemento
 then begin
 Writeln('Lista está ordenada');
 end
 else writeln('lista não esta ordenada');

end;
 maior:=bolha;
	end;

 clrscr;
end;

Como é que eu tenho que arrumar esta procedure pra retornar o que eu quero?

Se puderem me ajudar, desde já agradeço