PascalABC

[faiter_on]

Помогите пожалуйста.

Задание. Дана последовательность, содержащая от 1 до 30 слов, в каждом из которых от 1 до 5 прописных латинских букв; между соседними словами - запятая, за последним словом - точка. Напечатать те слова, перед которыми в последовательности находятся только меньшие (по алфавиту) слова, а за ними - только большие.

Задав с клавиатуры последовательность символов, реализовать обработку ее.
Исходные данные задать самостоятельно, учитывая специфику конкретного варианта.
В программе должны быть предусмотрены процедуры ввода-вывода последовательности символов и ее обработки. Исходные данные должны вводиться с проверкой на область допустимых значений.

[Donald Ervin Knuth]

program sortslov;
var
rt:string;
volp:integer;
{------------------- начало процедуры ввода----------------------}
procedure vvod;
var
ddate:string[255]; { Сюда будем грузить предложение с клавиатуры }
begin
writeln('Введите латинские слова (не более 5 букв в слове)');
writeln('между соседними словами - запятая, за последним словом - точка ');
writeln('Пример: hello,world.');
readln(ddate);writeln('Введено= ',ord(ddate[0]),' символов'); 
rt:=ddate;
volp:=ord(ddate[0])-1; { точку за борт }
end;
{--------------------начало процедуры обработки------------------}
procedure obrabotka (dd:string);
var
t,k:integer;
zap,sl:string; 
slova:array [1..30] of string; 
begin { разбиваем на слова }
sl:='';t:=1;zap:=',';
  for k:=1 to volp do
    begin 
      if (dd[k]<>zap) then sl:=sl+dd[k]
                        else 
                          begin
                            slova[t]:=sl;
                            sl:='';{ обнуляем накопитель}
                            t:=t+1;
                          end;
     end;
    {обработка слов теперь}
  for k:=2 to t-1 do
    begin
      if (slova[k-1]<slova[k])and(slova[k]<slova[k+1]) then
      writeln(slova[k])
      else
      writeln('Не соответствуют условию слово=',slova[k]);
    end;  
end;
begin
vvod;
obrabotka (rt);
end.

[faiter_on]

Спасибо большое!

[faiter_on]

Сообщение от Donald Ervin Knuth

program sortslov;
var
rt:string;
volp:integer;
{------------------- начало процедуры ввода----------------------}
procedure vvod;
var
ddate:string[255]; { Сюда будем грузить предложение с клавиатуры }
begin
writeln('Введите латинские слова (не более 5 букв в слове)');
writeln('между соседними словами - запятая, за последним словом - точка ');
writeln('Пример: hello,world.');
readln(ddate);writeln('Введено= ',ord(ddate[0]),' символов'); 
rt:=ddate;
volp:=ord(ddate[0])-1; { точку за борт }
end;
{--------------------начало процедуры обработки------------------}
procedure obrabotka (dd:string);
var
t,k:integer;
zap,sl:string; 
slova:array [1..30] of string; 
begin { разбиваем на слова }
sl:='';t:=1;zap:=',';
  for k:=1 to volp do
    begin 
      if (dd[k]<>zap) then sl:=sl+dd[k]
                        else 
                          begin
                            slova[t]:=sl;
                            sl:='';{ обнуляем накопитель}
                            t:=t+1;
                          end;
     end;
    {обработка слов теперь}
  for k:=2 to t-1 do
    begin
      if (slova[k-1]<slova[k])and(slova[k]<slova[k+1]) then
      writeln(slova[k])
      else
      writeln('Не соответствуют условию слово=',slova[k]);
    end;  
end;
begin
vvod;
obrabotka (rt);
end.

Помогите пожалуйста. В этой программе реализовать ввод из текстового файла и обработку символьных последовательностей, состоящих из любых символов.