(Паскаль текстовые задачи))(Завтра Экзамен нужно сдать.

[Димон93]

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

[Sparkman]

uses crt;
var s : array [1..30] of String[5];
    i,j,n,m:byte;
    c:char;
begin
     ClrScr;
     n:=1;
     write('Enter string: ');
     while (n<30)and(c<>'.') do
     begin
          c:=readkey;
          if c=#27 then halt else
          if (c in ['A'..'Z'])and(j<5) then
          begin
               s[n]:=s[n]+c;
               write(c);
               inc(j);
          end else
          if (c in [',','.'])and(j>0) then
          begin
               write(c);
               inc(n);
               j:=0;
          end else
          if (c='.')and(j=0) then c:=#0 else
     end;
     writeln;
     writeln('Result:');
     write('.');
     for i:=n downto 1 do
     begin
          m:=Length(s[i]);
          for j:=m downto 1 do
          write(s[i][j]);
          if (i>1)and(i<n) then write(',');
     end;
     readln;
end.