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

[Анастасья]

{) пусть дан непустой текст из прописных русских букв, за которыми следует точка. Определить, упорядочены ли эти буквы по алфавиту. (Используя строки, процедуры и функции) }
[CODE]..[/СODE]
program Project;

{$APPTYPE CONSOLE}
uses
SysUtils,
windows;

var
s:string;
b:boolean;

procedure readstr(var str:string);
var
i:integer;
begin
i:=0;
repeat
i:=i+1;
read(str[i])
until str[i]='.'
end;

function test(str:string):boolean;
var
sig:boolean;
i:integer;
begin
sig:=true;
for i:=2 to (length(str)-1) do
if ord(str[i-1])>ord(str[i]) then
sig:=false;
test:=sig
end;

begin
readstr(s);
b:=test(s);
if b then
writeln('+')
else
writeln('-');
readln;
readln
end.
{программа что то выскакивает..есть ли ошибки??}

[VadikV]

вместо readstr(s);
нужно:
ReadLn(s);
s := s + '.';