Program Task_16_64;
Type Ar_Word = Array[1..100] Of String;
Var S, W : String;
A : Ar_Word;
n, i, min, m : Byte;
Procedure Init_Word(S : String;Var A : Ar_Word;Var n : Byte);
Var i : Byte;
Begin
s:=s+' ';
n := 0; While S<>'' Do {Пока строка не пустая} Begin
While (S[1]=' ') And (S<>'') Do
Delete (S, 1, 1);
If S<>' ' Then Begin
n := n+1;
i := Pos(' ', S)-1;
A[n] := Copy (S, 1, i) ;
Delete(S, 1, i) ;
End;
End;
End;
Begin
Write('Введите текст ');
ReadLn(S);
Init_Word(S, A, n);
min := Length(S)+1;
For i := 1 to n Do Begin
m := Length(A[i]);
If (A[i] [m]='a' ) And (m Begin
min := m;
W := A[i]
End;
End;
s:='';
For i := 1 to n Do
If A[i]<>W Then S := S+A[i]+' ';
WriteLn(S);
End.