функция nonalpha( string), которая возвращает позицию его первой литеры, не являющейся буквой (Delphi)

[Начинающий програм]

Всем доброго времени суток! Помогите пожалуйста найти ошибку в коде.

Условие задачи.
Напишите функцию nonalpha, которая получает параметр str типа string и возвращает позицию его первой литеры, не являющейся буквой(как латинского, так и русского алфавитов) строчной или прописной. Например, nonalpha(‘stev7n’) дает 5.

program Project111117;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  windows;

Function nonalpha(str:integer):string;
var
  c:char;
  p:integer;
begin
  writeln('Введите в одну строчку символы, последний из которых точка');
  read(c);
  p:=0;
  while c<>'.' do
    begin
      if c in ['A'..'Z'] then
        begin
          p:=p+1
        end;
      read(c)
    end;
  writeln(p)
  end;

var
  str:integer;
  a:string;
begin
  setconsolecp(1251);
  setconsoleoutputcp(1251);
  a:=nonalpha(str);
  write(a);
  readln
end.

[Valio]

которая получает параметр str типа string и возвращает позицию его первой литеры

и

nonalpha(str:integer):string;

?

[Начинающий програм]

Вот еще вариант, но тоже не работает

program Project111117;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  windows;

function nonalpha (str:string): integer;
var i:integer;
    Glas:char;
Begin
  result:=-1;
  i:=1;
  while (i<=length(str)) and (result<0) do
    begin
      if ((str[i]<'a') or (str[i]>'z')) and ((str[i]<'A') or (str[i]>'Z')) and (pos(str[i],Glas)=0) then result:=i;
      inc(i);
    end;
End;

var
  str:integer;
  a:string;
begin
  setconsolecp(1251);
  setconsoleoutputcp(1251);
  a:=nonalpha(str);
  write(a);
  readln
end.

[Valio]

Ты вообще понимаешь, что ты пишешь? Тут просто всё неправильно.

Для начало напиши:
1. Запрос у пользователя слова.
2. Вывод этого слова на экран.
3. Функция которая возвращает длину этой строки.
4. Выведи результат работы функции.

[BDA]

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  windows;

var
  s: string;

function noalpha(var st: string): integer;
var
  i: integer;
  b: set of char;
begin
  noalpha := -1;
  if length(st) = 0 then exit;
  i := 1;
  b := ['A'..'Z', 'a'..'z', chr(192)..chr(255)];
  while (st[i] in b) and (i <= length(st)) do inc(i);
  if i <= length(st) then
    noalpha := i;
end;

begin
  setconsolecp(1251);
  setconsoleoutputcp(1251);
  readln(s);
  writeln(noalpha(s));
  readln;
end.

[Начинающий програм]

chr(192)..chr(255) //поясните рожалуйста что это обозначает

[BDA]

Это русские буквы в кодировке windows-1251.
http://ru.wikipedia.org/wiki/Windows-1251
Кстати, я забыл буквы Ё и ё.

[Начинающий програм]

Я Вам очень благодарен!