Работа со строками, сортировка предложений по критерию... Опции

[d1monn]

Уважаемые знатоки! Внимание, нужно написать программу, которая вводит строку символов и выводит на экран сначала предложення, которые начинаются с однобуквенных слов, а потом все остальные. Заранее спасибо! Очень на вас надеюсь.

Сообщение отредактировано: d1monn - 9.12.2006 23:54

[d1monn]

program Project2;

{$APPTYPE CONSOLE}

const MLA=['A'..'Z','a'..'z'];
      MRZ=['.','!'];
var l,i,k,zzr,ps:integer; s:string;
begin
    readln(s);
    l:=length(s);
    i:=1;
    k:=0;
    while i<=l do begin
      zzr:=0;
      while (i<=l) and not (s[i] in MLA) do begin
        if s[i] in MRZ then inc(zzr);
        inc(i);
      end;
      if i<=l then begin
        k:=k+1;
        ps:=i;
        while (i<=l) and (s[i] in MLA) do  i:=i+1;
        if ((k=1) or (zzr>0)) and (i-ps=1) then  writeln(copy(s,ps,1));
        if 

      end;
    end;
    write(k);
    readln;
    readln;
    end.