Нужна доработка Опции

[Вованыч]

Дано предложение, состоящее из слов. Описать в виде функций или процедур следующие операции:

а) представление предложения в виде массива слов (представляемых строками),
б) проверка упорядоченности слов,

Program KonRab_7;
uses crt;
var i: byte;
Pred: string;
Mas_slov: array [1..100] of string;
kol: byte;
procedure InputPred;
begin
clrscr;
Writeln('Введите предложение');
read(Pred);
readkey;
end;
procedure RazMAsSlov;
var
st: string;
i, k: byte;
begin
k:=1;


for i:=1 to length(pred) do begin
  if Pred[i] in ['a' .. 'z','A'..'Z',' '..'Ї', 'а'..'п','Ђ'..'Џ', 'ђ'..'џ'] then
   begin
   st:=st+pred[i];
   end
 else
  begin
  if st<>'' then
  begin
  mas_slov[k]:=st;
  k:=k+1;
  st:='';
  end;
  end;
  kol:=k;
  end;

end;

procedure InputMas_slov;
var
i:byte;
begin
for i:=1 to kol do
begin
writeln('[',i,']',Mas_slov[i]);
end;
end;

begin

clrscr;
InputPred;

RaZMasslov;
InputMas_slov;
readln;
readln;}
end.

Вроде как под (а) сделал но почему то работает не правильно?
А под (б) не знаю как сделать, помогите хотя бы с аглоритмом?

[klem4]

Разбиение на слова. Все способы.

ps За второй профиль тебя можно уже и по ip банить, твой первый профиль asu2006 на премодерации, и сообщения с него будут видны только после одобрения модератором.

Сообщение отредактировано: klem4 - 28.05.2008 16:44