Ошибка. Упорядочены ли буквы по алфавту

[Анастасья]

Программа выдает неверное решение.. помогите найти ошибку..

Program Project3;
{$APPTYPE CONSOLE}
{Программа позволяет определить,  упорядочены ли буквы по алфавиту в непустом
тексте  из  прописных русских бкув, за которым следует точка}
uses
  SysUtils,
  windows;

const
  nmax=100;
  eot= '.';
  Nlet=33;

type
  TRusletter=array[1..Nlet] of char;
  TTxt= array[1..nmax] of char;
const
  Rus: TRusletter=('а','б','в','г','д','е','ё','ж','з','и','й','к','л','м','н',
  'о','п','р','с','т','у','ф','х','ц','ч','ш','щ','ъ','ь','ы','э','ю','я');
var
  t:TTxt;
  n:integer;

function Nam_Rus ( K:char):integer;{функция возвращает номер русской букве}
var
  i:integer;
  rus: TRusletter;
  ok: boolean;
begin
  ok:=false;
  i:=1;
  while not ok and (i<=Nlet) do
    if k = rus[i] then
      ok:= true
    else
      inc(i);
  if ok then
   result:=i
  else
   result:=0
end;

procedure read_txt (var tx:TTxt; var n:integer);{эта процеура записывае текст}
var
  i:integer;
begin
  i:=0;
  repeat
    repeat
      inc(i);
    until eoln or (i=nmax)or (tx[i]=eot);
    readln;
  until (i=nmax) or(tx[i]=eot);
  if tx[i]<>eot then
    n:=i  {реальная длинна массива}
  else
    n:= i-1;
end;

function yporyadocheno_li( var txt:TTxt; n:integer): boolean;
var
  i:integer;
  ok:boolean;
  pnr:integer;  {номер предидущей русской буквы}
  tnr:integer;  {номер текущей русской буквы}
begin
  ok:= true;
  pnr:=Nam_Rus(txt[1]);
  i:=2;
  while ok and (i<= n) do
   begin
     tnr:= Nam_Rus(txt[i]);
     if tnr=0 then
       inc(i)
     else
       if pnr<=tnr then
         begin
           inc(i);
           pnr:=tnr;
         end
       else
         ok:=false;
   end;
   if Nam_Rus(txt[i])>Nam_Rus(txt[i+1]) then
     ok:=false
    else
      inc(i);
  result:=ok
end;

begin
  setconsolecp(1251);
  SetConsoleOutputCP(1251);
  writeln('Введите текст  из  маленьких  русских  букв оканчивающийся точкой');
  read_txt(t,n);
  if  yporyadocheno_li(t,n)then
    writeln ('Упорядочены')
  else
    writeln('не упорядочены');
  readln;
 End.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это не знак решёточи, это КНОПОЧКА с решёточкой #)
Не забывайте об этом!
Модератор.