Dãy ký tự

Program Sosanhkitu;

Uses sysutils, uses;

Var

KT, N, i, j  : Longint;  

b : string;

a:array[1..10000] of string;

begin

Write('Nhap so chuoi N: '); Readln(N);

i:=1;

While i <= N do

begin

Write('Nhap chuoi ', i); Readln(a[i]);

i:=i+1;

end;

i:=1;

j:=2;

while i <= N do

begin

KT:=CompareStr(a[i], a[j]);

if KT > 0 then begin

b:= a[i];

a[i]:=a[j];

a[j]:=b; end;

i:=i+1;

j:=j+1;

end;

Writeln('Cac chuoi sau sap xep la:');

j:=1;

while j<= N do

Begin

Writeln(a[i]);

i:=i+1;

end;

Readln;

end.

Số là

Program sosanhso;

Uses crt;

Var a:array[1..1000] of integer;

i, j, N: integer;

Begin

Writeln('Nhap so N'); Readln(N);

i:=1;

While i <= N do;

begin Write('Nhap so thu', i ); Readln(a[i]); i:=i+1;end;

i:=1;

j:=2;

While i <= N do;

begin

 if a[i] > a[j] then begin

b:=a[i];

a[i]:=a[j];

a[j]:= b;

end;

i:=i+1;

j:=j+1;

end;

i:=1;

While i <= N do begin

Writeln(a[i]);

i:=i+1;

end;

end.

____________________________________
Chỗ so sánh chữ mình không biết nó có bị lỗi hông nha vì mình chưa test

Sắp xếp dãy số:

uses crt;
var a:array[1..1000000]of longint; n,i,t,j:longint;
begin
clrscr;
   write('n=');readln(n);
   for i:=1 to n do
      begin
         write('a[',i,']=');readln(a[i]);
         for j:=1 to i-1 do
            if a[i]<a[j] then begin t:=A[I]; a[i]:=a[j]; a[j]:=t; end;
      end;
   for i:=1 to n do write(a[i],' ');
readln
end.

Sắp xếp chữ cái:

uses crt;
var a:string; i,j:longint; t:char;
begin
clrscr;
   write('s=');readln(a);
   for i:=1 to length(a) do
         for j:=1 to i-1 do if a[i]<a[j] then begin t:=A[I]; a[i]:=a[j]; a[j]:=t; end;
   writeln(a);
readln
end.