cứu tôi mấy og pascal

Bài 3: Viết chương trình nhập vào một dãy số nguyên có n phần tử . Sắp xếp dãy số theo thứ tự giảm dần & tính giá trị trung bình của dãy.

uses crt;
var a:array[1..1000] of integer;
n,i,j,t:integer;
t1,tbc:real;
begin
clrscr;
readLn(n);
for i := 1 to n do
read(a[i]);
for i:=1 to n-1 do
begin
for j:=i+1 to n do
begin
if a[i]<a[j] then
begin
t:=a[i];
a[i]:=a[j];
a[j]:=t;
end;
end;
end;
t1:=0;
for i:=1 to n do
t1:=t1+a[i];
if n>0 then
tbc:=t1/n
else
tbc:= 0;
for i:= 1 to n do
write(a[i], ' ');
writeLn;
writeLn(tbc:0:2);
readLn;
end.

uses crt;
var n,i,s:longint;
a:array[-100..10000] of longint;

procedure sort(l,r:longint);
var i,j,x,t:longint;
begin
i:=l;
j:=r;
x:=a[(l+r) div 2];
repeat
 while x<a[i] do i:=i+1;
 while x>a[j] do j:=j-1;
 if i<=j then
 begin
  t:=a[i];
  a[i]:=a[j];
  a[j]:=t;
  i:=i+1;
  j:=j-1;
 end;
until i>j;
if l<j then
 sort(l,j);
if i<r then
 sort(i,r);
end;


begin
clrscr;
readln(n);
s:=0;
for i:=1 to n do
begin
 readln(a[i]);
 s:=s+a[i];
end;

sort(1,n);
for i:=1 to n do
 write(a[i],' ');
writeln;
write(s/n:0:5);
readln
end.