program main;
const nmax= 15 ;
type TArr= array [ 1 .. nmax ] of string ;
var A: TArr;
s: string ;
i: Integer ;
procedure split( s: string ; var list: TArr) ;
const letters: set of char = [ 'а' .. 'п' , 'р' .. 'я' , 'А' .. 'Я' ] ;
var _word: String ;
i, n: Integer ;
begin
i: = 1 ;
n: = 1 ;
s: = s+ ' ' ;
while i<length( s) do
if s[ i] in letters then begin
_word: = '' ;
while ( s[ i] in letters) and ( i<length( s) ) do begin
_word: = _word+ s[ i] ;
inc( i) ;
end ;
if _word <> ' ' then begin
list[ n] : = _word;
inc( n) ;
end ;
end
else inc( i) ;
inc( n) ;
list[ n] : = nil ;
end ;
procedure sort( var list: TArr) ;
var buffer: string ;
i, j: Integer ;
begin
for i: = 1 to nmax- 1 do
for j: = i+ 1 to nmax do
if list[ i] >list[ i+ 1 ] then begin
buffer: = list[ i] ;
list[ i] : = list[ j] ;
list[ j] : = buffer;
end ;
end ;
begin
read ( s) ;;
split( s, A) ;
sort( A) ;
i: = 1 ;
while A[ i] <>nil do begin
writeln ( A[ i] ) ;
inc( i) ;
end ;
end .
cHJvZ3JhbSBtYWluOwpjb25zdCBubWF4PTE1Owp0eXBlIFRBcnI9YXJyYXlbMS4ubm1heF0gb2Ygc3RyaW5nOwp2YXIgQTpUQXJyOwogICAgczogc3RyaW5nOwogICAgaTogSW50ZWdlcjsKIApwcm9jZWR1cmUgc3BsaXQoczogc3RyaW5nOyB2YXIgbGlzdDogVEFycik7CmNvbnN0IGxldHRlcnM6IHNldCBvZiBjaGFyPVsn0LAnLi4n0L8nLCAn0YAnLi4n0Y8nLCAn0JAnLi4n0K8nXTsKdmFyIF93b3JkOiBTdHJpbmc7CiAgICBpLG46IEludGVnZXI7CmJlZ2luCiAgaTo9MTsKICBuOj0xOwogIHM6PXMrICcgJzsKICB3aGlsZSBpPGxlbmd0aChzKSBkbwogICAgaWYgc1tpXSBpbiBsZXR0ZXJzIHRoZW4gYmVnaW4KICAgICAgX3dvcmQ6PScnOwogICAgICB3aGlsZSAoc1tpXSBpbiBsZXR0ZXJzKSBhbmQgKGk8bGVuZ3RoKHMpKSBkbyBiZWdpbgogICAgICAgIF93b3JkOj1fd29yZCtzW2ldOwogICAgICAgIGluYyhpKTsKICAgICAgZW5kOwogICAgICBpZiBfd29yZCA8PiAnICcgdGhlbiBiZWdpbgogICAgICAgIGxpc3Rbbl06PV93b3JkOwogICAgICAgIGluYyhuKTsKICAgICAgZW5kOwogICAgZW5kCiAgICBlbHNlIGluYyhpKTsKICAgIGluYyhuKTsKICAgIGxpc3Rbbl06PW5pbDsKZW5kOwogCnByb2NlZHVyZSBzb3J0KHZhciBsaXN0OiBUQXJyKTsKdmFyIGJ1ZmZlcjogc3RyaW5nOwogICAgaSxqOiBJbnRlZ2VyOwpiZWdpbgogIGZvciBpOj0xIHRvIG5tYXgtMSBkbwogICAgZm9yIGo6PWkrMSB0byBubWF4IGRvCiAgICAgIGlmIGxpc3RbaV0+bGlzdFtpKzFdIHRoZW4gYmVnaW4KICAgICAgICBidWZmZXI6PWxpc3RbaV07CiAgICAgICAgbGlzdFtpXTo9bGlzdFtqXTsKICAgICAgICBsaXN0W2pdOj1idWZmZXI7CiAgICBlbmQ7CmVuZDsKIApiZWdpbgogIHJlYWQocyk7OwogIHNwbGl0KHMsIEEpOwogIHNvcnQoQSk7CiAgaTo9MTsKICB3aGlsZSBBW2ldPD5uaWwgZG8gYmVnaW4KICAgIHdyaXRlbG4oQVtpXSk7CiAgICBpbmMoaSk7CiAgZW5kOwplbmQu
compilation info
Free Pascal Compiler version 2.2.0 [2009/11/16] for i386
Copyright (c) 1993-2007 by Florian Klaempfl
Target OS: Linux for i386
Compiling prog.pas
prog.pas(9,39) Error: Ordinal expression expected
prog.pas(9,64) Error: Illegal expression
prog.pas(30,14) Error: Incompatible types: got "Pointer" expected "ShortString"
prog.pas(51,13) Error: Operator is not overloaded
prog.pas(55,4) Fatal: There were 4 errors compiling module, stopping
Fatal: Compilation aborted
Error: /usr/bin/ppc386 returned an error exitcode (normal if you did not specify a source file to be compiled)
stdout