Последовательность слов Опции

[garry_m]

Народ! Пожалуйста помогите решить задачу!

Дана непустая последовательность слов, составленных из цифр и латинских букв, разделенных произвольным числом пробелов. Написать процедуру, которая считывает слово из заданной последовательности и определяет, является ли оно синтаксически корретным идентификатором Паскаля.

[garry_m]

Поставленная задача: Дана последовательность, содержащая от 2 до 30 слов, в каждом из которых от 2 до 10 символов; между соседними словами - произвольное число пробелов, за последним словом точка. Напечатать эту же последовательность, удалив из всех слов цифры и символы подчеркивания.


Вот мое решение:

uses crt;
var
  txt:string;
  mat:array [1..31] of string;
  isc:string;
  sch,i,n:integer;
begin
  clrscr;
  {Naznachenije nachalnih parametrov}
  for i:=1 to 31 do mat[i]:='';
  i:=1;n:=0;mat[31]:='0';
  repeat
    writeln ('Naberite posledovatelnost iz slov,');
    writeln('ne previschajuschih 8-m simvolov, i ne bolee 50 slov.');
    writeln ('Ili nazhmite Enter dlja vvoda posledovatelnosti po umolchaniju');
    writeln ('(Sjesch eche  etih mjagkih francuzkih bulok, da vipej chaju.)');
    readln(txt);
    {Proverka na pustotu vvodimogo texta u okonchanije na tochku}
    if txt='' then txt:='Sjesch eche  etih mjagkih francuzkih bulok, da vipej chaju.';
    if pos('.',txt)=0 then writeln('Vi zabili postavit tochku.');
  until pos('.',txt)<>0;
sch:=1;
  {Udalenije lishnih probelov}
  repeat
    if (txt[sch]=' ') and (txt[sch+1]=' ') then
      begin
        delete(txt,sch,1);{Udalenije lishnego probela}
      end
    else sch:=sch+1;
  until txt[sch]='.';
  sch:=1;
  {Rasstanovka slov v massiv}
  repeat
    {Poisk okonchanija slova}
    repeat
      if txt[sch]<>' ' then sch:=sch+1;
    until (txt[sch]=' ') or (txt[sch]='.');
    {Zanesenije najdennogo slova v massiv}
    mat[i]:=copy(txt,n+1,sch-n-1);
    i:=i+1;{Nomer slova}
    n:=sch;{Nachalnoje polozhenije}
    sch:=sch+1;
  until (txt[sch]='.') or (i=30);
  {Vivod posledovatelnosti}
  writeln('Nabrannaja vami posledovatelnost:');
  writeln (txt); {Vivod posledovatelnosti s odinochnimi probelami mezhdu slovami}
  writeln('');
  n:=31;
  for sch:=2 to i-1 do
      if length(mat[sch])>10 then
        isc:=isc+mat[sch]+' '{Iskluchenije slov dlina kotorih bolee 8-mi simvolov}
      else
        {Poisk samogo dlinnogo slova}
        if length(mat[n])<length(mat[sch]) then n:=sch;
  if mat[n]<>'0' then writeln('Samoe dlinnoje slovo: ', mat[n])
    else writeln('Slovo ne previschajuchee 8-mi simvolov ne najdeno.');
  if isc<>'' then writeln('Slova previschajuschije 8-m simvolov: ',isc);
  writeln('');
  write('Dlja prodolzhenija nazhmite ENTER...');
  readln;
end.

volvo, посмотри pls, правильно ли я ее решил? А то мне кажется, что опять накосячил...