Cho 5 sao nhé

uses crt;
var f:text;a:array[1..50]of longint;n:longint;
function le(b:longint):boolean;
        begin
         le:=b mod 2<>0;
        end;
procedure doc;
var i:longint;
        begin
         assign(f,'DLVAO.TXT');
         reset(f);
         readln(f,n);
         for i:=1 to n do read(f,a[i]);
         close(f);
        end;
procedure ghi;
var i,max,dem:longint;
        begin
         assign(f,'DLRA.TXT');
         rewrite(f);
         max:=a[1];
         dem:=0;
         for i:=1 to n do if(le(a[i]))then
                begin
                 inc(dem);
                 if(max<a[i])then max:=a[i];
                end;
         writeln(f,dem);
         for i:=1 to n do if(le(a[i]))then write(f,a[i],' ');
         writeln(f);;
         write(f,max);
         close(f);
        end;
begin
 clrscr;
  doc;
  ghi;
 readln
end.