есть листинг прогр. на паскале, найти ошибку в блок-схеме и в самой проге

[студент АГНИ]

Дан целочисленный массив А размера N. Найти количество (k) различных элементов в данном массиве и вывести эти элементы в порядке их возрастания. Для отладки программы числа последовательности сформировать с помощью генератора случайных чисел Random.
__________
uses crt;
const n=10;
var a:array [1..n] of integer;
Lo:array [1..n] of boolean;
k,i,z,x,j,Pr:integer;
begin
clrscr;
Randomize;
Writeln('Ishodnyi masssiv:');
for i:=1 to n do begin
a[i]:=Trunc(Random*10);
Writeln(a[i]);
Lo[i]:=True;
end;
k:=0;
for i:=1 to n do
if Lo[i] then begin
k:=k+1;
for z:=i to n do begin
Lo[z]:=(a[z]<>a[i]) and Lo[z];
end;
end;
x:=0;
For I:=1 To N-1 Do
Begin
x:=I;
For J:=I+1 To N Do If A[J]<=A[x] Then x:=J;
Pr:=A[I];
A[I]:=A[x];
A[x]:=Pr;
End;
Writeln;
Writeln('Sortirovka po vozrastan:');
For i:=1 to n do Writeln(A[I]);
Writeln('Kolichestvo razlichnyh elementov: ',k);
Readln;
end.

[Alex11223]

a[i]:=Trunc(Random*10);

Зачем trunc?
Дальше не смотрел, используйте тег [CODE] (значок #) для сохранения форматирования\подсветки кода в сообщении

[студент АГНИ]

Сообщение от Alex11223

Зачем trunc?
Дальше не смотрел, используйте тег [CODE] (значок #) для сохранения форматирования\подсветки кода в сообщении

а в блок-схеме взгляните пожалуйста что там не так?