Дан файл символов, сформировать второй файл из неповторяющихся символов первого файла.
program fil;
const
n = 20; // кол-во эл-ов файла
var
f, f1 : text;
mass : array[1..n] of char;
ch : char;
a : integer; // номер символа
i, j : integer;
b : boolean;
begin
writeln('Генерируем файл.');
assign(f, 'c:\dann.txt'); // основной файл
assign(f1,'c:\dann1.txt');// дополнительный
rewrite(f); // открываем на запись
randomize;
for i := 1 to n do
begin
a := random(26)+65; //номер счучайного символа щт A до Z
writeln(f, chr(a)); // записываем в файл случайный символ
write(chr(a), ' '); // выводим на экран
mass[i] := chr(a);
end;
close(f);
// выше сформировали файл, его можно просмотреть любым редактором
// ниже начнём обработку
rewrite(f1); //открываем второй на запись
writeln;
writeln('Ниже символы которые не повторяются. Это содержимое второго файла.');
writeln;
for i := 1 to n do
begin
b := false;
ch := mass[i];
for j := 1 to n do
if i <> j then
if ch = mass[j] then b := true; // проверяем совпадения
if not b then
begin
writeln(f1, ch);
b := false;
write(ch, ' ');
end;
end;
close(f1);
writeln;
writeln('Нажмите ентер.');
readln;
end.