Контрольная работа по "Информатика"

Программа сортировки строк написанная на паскале.

program sort_strings;

var a:array[1..100]of string;

    i,j,n:integer; 

procedure init;

var i: integer;

begin

   assign(input,'sort_str.in');

   reset(input);

   readln(n);

   for i:=1 to n do readln(a[i]);

end; 

procedure sort;

var i, j: integer;

    s:string;

begin

   for i:=1 to n-1 do

      for j:=i+1 to n do

      if a[i]>a[j] then

         begin

            s:=a[i];

            a[i]:=a[j];

            a[j]:=s;

         end;

end; 

procedure out;

var i: integer;

begin

   assign(output,'sort_str.out');

   rewrite(output);

   for i:=1 to n do

      writeln(a[i]);

end; 

begin

   init;

   sort;

   out;

end.