program MARIUS;

type  masyvas=array [1..1000] of string[50];

var  m:masyvas;
     i,b:integer;
     rez: text;
//----------------------------------------------------------------------------//
procedure irasyk (var m:masyvas;var k:integer);
var f:text;
    a,i,c:integer;
    eile,zodis:string;
begin
assign(f,'duom.txt');
reset(f);
writeln ('Skaitome faila "duom.txt"');
k:=0;
while not eof(f) do
    begin
    readln(f,eile);
    c:=length (eile);
    for i:=1 to c do begin
        while pos (' ', eile) = 1 do  delete (eile, 1, 1);
        a := pos (' ', eile);
        if a = 0 then a := length(eile) + 1;
        zodis:= copy (eile, 1, a - 1);
        m[i]:=zodis;
        delete (eile, 1, a);
        end;
    k:=k+1;
    if i>1000 then writeln('Masyvas perpildytas');
    end;
    close(f);
end;

//----------------------------------------------------------------------------//
procedure keitimas (var zodis: string);
var f: masyvas;
    i: integer;
begin
For i:1 to length (zodis) do begin


end;
end;


//----------------------------------------------------------------------------//
procedure rusiuoti(k:integer; var m:masyvas);
var i,j:1..1000;
r:string[50];
begin
for i:=1 to k-1 do
for j:=1 to k-i do
if (m[j]) >= (m[j+1]) then
begin
  r:=m[j];
  m[j]:=m[j+1];
  m[j+1]:=r
  end;
end;
//----------------------------------------------------------------------------//
procedure iras_faila (h:integer; var m:masyvas);
  var rez:text;
  i:1..1000;
  begin
  assign(rez,'rezult.txt');
  rewrite(rez);
  writeln('Masyvas perasomas i faila rezult.txt');
  for i:=1 to h do writeln(rez,m[i]);
  close(rez);
  end;
//----------------------------------------------------------------------------//
begin
irasyk (m,b);
For i:=1 to b do Writeln (m[i]);
Readln;
rusiuoti (b,m);
For i:=1 to b do Writeln (m[i]);
Readln;
iras_faila (b,m);
Readln;
end.