uses crt;
var m: array[1..100] of integer;
    n,i,max,j,t,scp: integer;
begin
 clrscr;
  write ('nhap n: ');  readln (n);
  for i:=1 to n do
   begin
    write ('nhap m[',i,']: ');  readln (m[i]);
    if max<=abs(m[i]) then max:=abs(m[i]);
   end;
  for i:=1 to n-1 do
   for j:=i+1 to n do
    if m[i]<m[j] then
     begin
      t:=m[i];
      m[i]:=m[j];
      m[j]:=t;
     end;
  write ('day sau khi sap xep giam dan: ');
  for i:=1 to n do write (m[i],' ');
  writeln;
  writeln ('gia tri tuyet doi lon nhat trong day: ',max);
  write ('cac so chinh phuong trong day: ');
  for i:=1 to n do
   begin
    scp:=trunc(sqrt(m[i]));
    if sqr(scp)=m[i] then
    write (m[i],' ');
   end;
 readlnend.

vd:

var st:string;

nếu bình thường thì độ dài lớn nhất của xâu là 255 kí tự. Ta cũng có thể thay đổi độ dài của xâu. Vd: 

 var st:string[5];

đó là khai báo xâu có độ dài lớn nhất là 5 kí tự

Các thao tác xử lí xâu:

+gán: vd: st:='Viet nam';

+phép so sánh: vd:

   s1:='Ba';

   s2:='Con';

xâu nào có kí tự đầu tiên trong mã ASCII lớn hơn thì lớn hơn

=>s1<s2;

+hàm length

vd: st:='Viet Nam';

=>length(st)=8(vì có 8 kí tự);

và có rất nhiều hàm, thủ tục xử lí khác, khi nào bạn học tới thì thầy cô sẽ giảng cho bạn chi tiết hơn.

Chúc bạn học tốt!