Phần bài tập màu về pascal

Đề bài: Nhập vào một mảng gồm n số nguyên và số nguyên k. TÌm và đưa ra màn hình:  
   a.Giá trị lớn nhất của mảng, vị trí lớn nhất đó    b. Gía trị nhỏ nhất của màng, vị trí    c. Tính tổng bình phương các giá trị ở vị trí chẵn    d. Sắp xếp mảng theo thứ tự tăng dần
    e. Đếm xem trong mang có bao nhiêu giá trị bằng k.
var a:array[1..200] of integer;   max,min,m,j,n,imin,imax,d,k,s,tg:integer; Begin   write(`Nhap so phan tu:`);readln(n);   write(`Nhap k:`); readln(k);   for m:=1 to n do     begin      write(`Nhap a[`,m,`]=`);readln(a[m]);     end;   max:=a[1];min:=a[1];d:=0;s:=0;imin:=1;imax:=1;   for m:= 2 to n do     begin      if a[m]>max then         begin          max:=a[m];          imax:=m;         end;       if a[m]a[j] then           begin            tg:=a[m];            a[m]:=a[j];            a[j]:=tg;           end;        Writeln(`Gia tri lon nhat cua day la `, max,` o vi tri`,imax);        Writeln(`Gia tri nho nhat cua day la `, min,` o vi tri`,imin);        Writeln(`Tong binh phuong cac so o vi tri chan `,s);        writeln(`So phan tu co gia tri bang `,k,` la `,d);        Writeln(`Mang sau khi sap xep`);        for m:=1 to n do         write(a[m]);     readln;     End.
{Tim doan dai nhat gom cac so 0 lien tiep} var a:array[1..100] of integer;    n,dem,i,j,tong,max,vt:integer; begin  write(`Nhap so phan tu cua mang:`);readln(n);  for i:=1 to n do    begin     write(`Nhap a[`,i,`]:`);readln(a);     end;      dem:=0;      for i:=1 to n do      begin      if a =0 then dem:=dem+1      else dem:=0;      if dem>max then max:=dem;      end;     write(`Doan dai nhat gom cac so 0 lien tiep la `,max);     readln;     end. {Kiem tra mot day la cap so cong} var a:array[1..100] of integer; d,i,n:integer; kt:boolean; begin write(`Nhap n:`);readln(n); for i:=1 to n do   begin    write(`Nhap a[`,i,`]:`);readln(a);   end; kt:=true;i:=3;  d:=a[2]-a[1]; while (i<=n) do  begin  if a-a[i-1] <>d then kt:=false;  inc(i);  end;  if kt then write(`day la cap so cong`)  else   write(`day khong la csc`);  readln;  end. {Tim day con tang co tong lon nhat, in ra day con do} var a:array[1..100] of integer;    n, i,j,tong,max,vt:integer; begin  write(`Nhap so phan tu cua mang:`);readln(n);  for i:=1 to n do    begin     write(`Nhap a[`,i,`]:`);readln(a);     end;    i:=1;max:=0;    while (