Линейные списки: выяснить есть ли среди заданных чисел одинаковые

program Projct;
const n = 200;
type
SNumbers = record
    numb: integer;
    end;
var
Numbers: array[1..n] of SNumbers;
count,i,j : integer;
begin
writeln('Input size struct');
readln(count);
for i := 1 to count do
    begin
    writeln('Input element');
    readln(Numbers[i].numb);
    end;
for i := 1 to count do
    begin
        for j := (i+1) to count do
            begin
            if Numbers[i].numb = Numbers[j].numb then
            begin
            writeln('Sovpali');
            readln;
            end;
            end;
    end;
    writeln('Net Sovpadeniy');
        readln;
end.

Program pr;
Uses CRT;
Const n=3;
Var m:array [1..n] of integer;
  i,j:integer;
 bval:boolean;
Begin
ClrScr;
Randomize;
For i:=1 to n do
 m[i]:=Random(6);
For i:=1 to n do
 Write(m[i],' ');
 Writeln;
 i:=1;
 j:=1;
While (i<=n)AND(NOT bval) do
 Begin
  While (j<=n)AND(NOT bval) do
   Begin
    If (m[j]=m[i])AND(i<>j) then bval:=true;
    inc(j);
   End;
  inc(i);
End;
Writeln('Есть повтор:',bval);
Readln;
End.