Pascal abc/написать функцию принимающую значение true, если буквы строки по алфавиту function test(word: string): boolean

Program D1KPxx8;
uses crt;
var
s,b:string;
c:boolean;
i,k,n:integer;
begin
c:=false;
s:='';
read(b);
k:=0;
repeat
inc(k);
begin
if s[k]=b[1] then
begin
break;
end;
end;
until k>length(s);
n:=length(b);
for i:=1 to n do
begin
if s[k]=b[i] then
begin
c:=true;
end
else c:=false;
inc(k);
end;
write(c);
if c=true then
halt
else
if c=false then
halt;
writeln('false');
end.