Вот нашла в инете похожую задачку, но в Паскале не идет. Объясните. Файл
F создаю. Непонятно, что такое ***********
var f:text;
s:string;
i,j,k:integer;
m:set of char;
begin write('***************************************************');
assign(f,'F11.txt');
reset(f);
m:=[' '..'п'];
writeln('Такие слова :');
while not(eof(f)) do
begin readln(f,s);
for i:=1 to length(s) do
begin k:=0;
for j:=1 to length(s) do
if (s[i] in m)and(s[j] in m)and(s[i]=s[j])
then k:=k+1;
if k=1 then write(s[i],' ');
end;
end;
close(f);
end.