Процедуры и функции для строк, Написать программу, которая будет... Опции

[RastamaN]

Написать программу, которая будет выводть значения типа string и определять, является ли каждое из них правильным идентификатором, удовлетворяющим требованиям Паскаля. Напомним вкратце правила построения имен. Всякое имя должно содержать от 1 до 127 литер; первой литерой должна быть буква (строчная или прописная); любая другая литера (начиня со второй) может быть буквой, цифрой (от 0 до 9) или знаком подчеркивания. Если обнаружена ошибка, необходимо выдать сообщение, квалифицирующее ее.

Также надо усовершенствовать программу так, чтобы она умела распознать служебные слова Паскаля и отвергать попытки их предъявления. Для простоты ораничьте набор служебных слов, взяв за основу только некоторые из них.


Знаю, что задача простая, но в школе мы, к моему глубокому сожалению, Бейсик проходили..

Помогите, пожалуйста, завтра аттестация!!!

[volvo]

Ну, вот тебе набросок:

begin
  readln(s);
  if length(s) <= 127 then
    if upcase(s[1]) in ['A' .. 'Z', '_'] then begin
      i := 2;
      while (upcase(s[i]) in ['0' .. '9', 'A' .. 'Z', '_']) and
            (i <= length(s)) do inc(i);
      if i > length(s) then { Печатать "ok"  }
      else { Печатать "Ошибка в символе №i" }

    end
    else { Печатать "Неправильный первый символ" }
  else { Печатать "Слишком длинная строка" }
end.

Кстати,

первой литерой должна быть буква (строчная или прописная);

- ложь чистая. Почему подчеркивание не может быть?