что нужно изменить в программе, чтобы он выводил все буквы в алфавитном порядке, которые встретились в файле хотя бы 1 раз?!

[[Алёнка]]

program Mn2;
const da=['A','a','B','b','C','c','D','d','E','e','F','f','G','g',
'H','h','I','i','J','j','K','k','L','l','M','m','N','n',
'O','o','P','p','Q','q','R','r','S','s','T','t','U','u',
'V','v','W','w','X','x','Y','y','Z','z'];
var
f: text;
s: string;
d2,d1, dres: set of char;
i,len: integer;
ch: char;
begin
    assign(f,'file.txt');
    reset(f);
while not Eof(F) do begin
      Readln(F, S);
      Len := Length(S);
      for i := 1 to Len do begin
        if S[i] in D1 then D2 := D2 + [ S[i] ]
                           else
        D1 := D1 + [ S[i] ];
      end;
      end;
    close(f);
    DRes := D1 - D2;
    writeln('иходный файл:');
    {reset(f);
    while not eof(f) do
          begin
          read(f,s);
          write(s);
          write(' ');
          end;
    close(f);
    writeln('');}
    if DRes = [] then begin
      Writeln('В файле нет букв встретившихся только один раз. ');
        end else begin
      Writeln('буквы в алфавитном порядке, которые встретились в файле только один раз один раз:');
      i := 0;
      for Ch := #0 to #255 do begin
        if not (Ch in DRes) then Continue;
        Inc(i);
        if i > 1 then Write(', ');
        Write(Ch);
      end;
      Writeln;
    end;
    Writeln;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.


Задание: Дан текстовый файл, в котором латинскими буквами записан некий текст (соседние слова в тексте разделены одним пробелом). Необходимо вывести в алфавитном порядке все буквы,Хотя бы один раз встретившиеся в этом тексте.

[TinMan]

Алена, вот попробуй сделать:

const
  LatUp= ['A'..'Z'];
var
  All: set of char;
  f: file of char;
  c: char;
begin
  Assign(f,'text.txt');
  Reset(f);
  All:= [];
  while not EoF(f) do begin
    read(f,c);
    c:= UpCase(c);
    if c in LatUp then All:= All+[c]
  end;
  Close(f);
  for c:= 'A' to 'Z' do if c in All then write(c)
end.

[[Алёнка]]

а что за LatUp?

а можешь написать программу с этой вставкой, исправленную?! а то что то у меня не получается...(

[QunneD]

const // объявление констант
  LatUp = ['A'..'Z']; // множество символов

[TinMan]

Сообщение от [Алёнка]

а что за LatUp?

Вот ты - Аленка, а это множество я назвал LatUp (латинские буквы, верхний регистр). Не наравится - назови John.. или просто A ))

а можешь написать программу с этой вставкой, исправленную?! а то что то у меня не получается...(

Я могу помочь справится с тем, что не получается (если скажешь, что именно). Исправлять твою прогу, чтоб ты ее сдала - уж лучше жабу в рот..
Запомни: я помогаю тебе научиться, а не сдаю за тебя.