Из заданного фрагмента последовательности чисел выбрать числа, встречающиеся в нем только один раз.

program numcount;
uses crt;
var f1,f2:text;
    s: array[1..30] of string;
    i, j, v, count: integer;
    a: array[1..10] of integer;
    ch: char;
Begin
 clrscr;
 
 assign(f1,'input.txt');
 reset(f1);
 
 assign(f2,'output.txt');
 rewrite(f2);
 
 i:=0;
 
 while not EOF(f1) do
 begin
  count:=count+1;
  readln(f1,s[count]);
 end;
 
 v:=ord('0');
 for i:=1 to count do
 begin
   for j:=1 to length(s[i]) do
   begin
     ch:=s[i][j];
     if ((ch>='0') and (ch<='9')) then a[ord(ch)-v+1]:=a[ord(ch)-v+1]+1;
   end;
 end;
 
 for i:=1 to 10
 do
  if ((a[i]<>0) and (a[i]=1))  then writeln(f2,'Count of "',i-1,'" = ',a[i]);
 
 close(f1);
 close(f2);
 textcolor(2);
 writeln('File ','output.txt was changed!');
End.

uses
  CRT;
 
var
 a:array[1..100] of integer;
 i, j, n: byte;
 t:boolean;
 
begin
ClrScr;
readln(n);
writeln('Èñõîäíûé ìàññèâ: ');
randomize;
for i := 1 to n do
begin
 a[i] := random(10)-3;
 write(a[i]:5);
end;
writeln;
for i := 1 to n do
begin
 t:=true;
  for j:=1 to n do
   if (a[i]=a[j]) and (i<>j)  then
    t:=false;
if t then
 writeln(' a[',i,']:=',a[i]);
end;
readkey
end.