Có Bài pascal nhờ pro giúp đỡ !

[p1c4ss0]

Lập chương trình nhập vào 1 mảng số nguyên có n phần tử ( với n được nhập vào từ bàn phím ).
- In ra mảng vừa nhập.
- Tìm giá trị min , max có trong mảng.
- Tinh tổng các phần tử chẵn có trong mảng.
- Sắp xếp mảng theo thứ tự giảm dần.

 

[tranduchuytt2]

uses crt;
const max=100;
var a:array[1..max] of integer;
i,tongchan,mina,maxa,n:integer;
begin
clrscr;
write('nhap so phan tu mang n= ');
readln;
for i:=1 to n do
begin
write('nhap a[',i,']= ');
readln(a);
writeln;
end;
write('cac phan tu trong mang la: ');
maxa:=a[1]; mina:=a[1]; tongchan:=0;
for i:=1 to n do
begin
write(a);
if a>maxa then maxa:=a;
if a<mina than mina:=a;
if a mod 2 =0 then tongchan:=tongchan+a;
end;
writeln('so lon nhat la ',maxa);
writeln('so nho nhat la ',mina);
writeln('tong cac phan tu chan la ',tongchan);
readln;
end.