Получить числа, которые входят в последовательность по одному разу

uses crt;
const nmax=100;
var a:array[1..nmax] of integer;
    n,i,j:byte;
    f,k:boolean;
begin
clrscr;
randomize;
repeat
write('Размер последовательности А до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Последовательность:');
for i:=1 to n do
 begin
  a[i]:=random(10);
  write(a[i]:3);
 end;
writeln;
writeln;
writeln('Входят по одному разу:');
k:=false;
for i:=1 to n do
 begin
  f:=true;
  for j:=1 to n do
  if(a[i]=a[j])and(i<>j) then f:=false;
  if f then
   begin
    write(a[i]:3);
    k:=true;
   end;
 end;
if not k then write('Таких чисел нет');
readln
end.

uses crt;
const mb=['a'..'z','а'..'п','р'..'я','ё'];
var s:string;
    i,k:byte;
begin
clrscr;
writeln('Введите строку, содержащую или не содержащую символы ! *:');
readln(s);
if pos('!',s)=0 then writeln('В строке нет символа !, строка не меняется')
else
 begin
  if pos('*',s)<2 then writeln('В строке нет символа *, или он первый, строка не меняется')
  else
   begin
    k:=0;
    for i:=1 to pos('*',s)-1 do
    if s[i] in mb then
     begin
      s[i]:='5';
      k:=1;
     end;
    if k=0 then writeln('До символа * нет малых букв, строка не меняется');
   end;
 end;
write(s);
readln
end.

uses crt;
const bk=['A'..'Z','a'..'z','А'..'п','р'..'ё'];
var s:string;
    i,k:byte;
begin
clrscr;
writeln('Введите строку:');
readln(s);
writeln('Первые вхождения букв:');
k:=0;
if s[1] in bk then
 begin
  write(s[1]);
  k:=1;
 end;
for i:=2 to length(s) do
if s[i] in bk then
 begin
  if pos(s[i],s)=i then
   begin
    write(s[i]);
    k:=1;
   end;
 end;
if k=0 then write('В строке нет букв');
readln
end.