fork download

copy

   type roma=array [1..100] of integer;
   var x,y:roma;
       n,g,k,i,e,e1:integer;
begin
   readln(n);
   for i:=1 to n do
      read (x[i]);
   for i:=1 to n do
      begin
         k:=0;
         g:=x[i];
         while g>0 do
            begin
               k:=k+1;
               y[k]:=g mod 10;
               g:=g div 10;
            end;
         repeat
            e:=1;
            for i:=1 to k-1 do
               if y[i]<y[i+1] then
                  begin
                     e:=0;
                     e1:=y[i];
                     y[i]:=y[i+1];
                     y[i+1]:=e1;
                  end;
         until e=1;
         for i:=1 to k do
            write(y[i]);
         write(' ');
      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(20,18) Error: Illegal assignment to for-loop variable "i"
prog.pas(33,4) Fatal: There were 1 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