Дана последовательность,содержащая от 1 до 30 слов,в каждом из которых от 1 до 5 строчных латинских букв;между соседними словами -запятая,за последним словом-точка. Вывести эту же последовательность слов, но в обратном порядке.
Как вывести в обрантом порядке
Const m=[' ','.','!','?'];
Var s,s1,s2:string;
A:array[1..30] of string;
i,k:byte;
Function Proverka(s:string;k:byte):boolean;
Var i:byte;
b:boolean;
Begin
b:=true;
For i:=1 to k do
if A[i]=s then b:=false;
Proverka:=b;
End;
Begin
write('Введите предложение: ');readln(s);
k:=0;s:=s+' ';s1:='';s2:='';
For i:=1 to Length(s) do
if not(s[i] in m) then s1:=s1+s[i]
else
Begin
if Proverka(s1,k) then
Begin
s2:=s2+s1+s[i];
inc(k);
A[k]:=s1;
End;
s1:='';
End;
writeln(s2);
readln;
End.