fork download

copy

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.

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)

Standard output is empty