Liệt kê chữ cái

Chọn HSG lớp 12 Bạc Liêu 2012 - Bảng A - Ngày 1 - Bài 2/3
Cho một văn bản chứa trong một text file. Bạn hãy viết chương trình liệt kê các chữ cái chỉ có mặt trong văn bản đúng một lần theo thứ tự của bng chữ cái (không phân biệt chữ hoa và chữ thường).
Dữ liệu vào: file DEM_CHU.INP gồm nhiều dòng chứa các ký tự trong file.
Dữ liệu ra: file DEM_CHU.OUT
Mỗi dòng ghi các ký tự chỉ xuất hiện đúng một lần trong file theo yêu cầu đề ra.
Ví dụ:
   DEM_CHU.INP
      NAM MOI HANH PHUC
   DEM_CHU.OUT
      C
      I
      O
      P
      U

                                                           Lời giải tham khảo

Program DEMCHU;
Var F: text;
    i, j, gan: longint;
    g: char;
    a: string;
    b: array[1..100] of string;
    dem: array[1..1000] of longint;
BEGIN
Assign(F,'DC.INP');
Reset(F);
Readln(F,a);
Close(F);
Assign(F,'DC.OUT');
Rewrite(F);
j:= 0;
For g:= 'A' to 'Z' do
    Begin
    j:= j+ 1;
    b[j]:= g;
    End;
gan:= j;
For i:= 1 to length(a) do
    For j:= 1 to gan do
        Begin
        If a[i]= b[j] then
           dem[j]:= dem[j]+ 1;
        End;
For i:= 1 to gan do
    If dem[i]= 1 then
    Writeln(F,b[i]);
Close(F);
END.