Методы поиска

uses crt;
const k=100;{количество билетов}
      v=15;{количество выигрышей}
var a:array[1..v] of byte;{массив номеров}
    c:array[1..v] of real;{массив выигрышей}
    i,x,pn,pk,j,n:byte;
    m:set of byte;{множество для контроля неповторяющихся чисел}
begin
clrscr;
randomize;
write('Количество выигравших билетов=',v);
writeln;
for i:=1 to v do
 begin
  m:=[];{пустое множество}
  repeat
   a[i]:=random(k)+1;{случайное число из диапазона номеров}
  until not(a[i] in m);{если уже было, повторяем, если нет, }
  m:=m+[a[i]];{записываем в множество и запоминаем}
 end;
for i:=1 to v-1 do{сортируем массив по возрастанию номеров 
(в условии почему-то по убыванию, думаю ошибка)}
for j:=i+1 to v do
if a[i]<a[j] then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;
writeln('Номера выигравших билетов:');
for i:=1 to v do
write(a[i]:5);
writeln;
writeln;
writeln('Размер выигрышей:');
for i:=1 to v do
 begin
  c[i]:=90*random+10;
  write(c[i]:5:1);
 end;
writeln;
writeln;
repeat
write('Начало диапазона от 1 до ',k-1,' pn=');
readln(pn);
until pn in [1..k-1];
repeat
write('Конец диапазона от ',pn+1,' до ',k,' pk=');
readln(pk);
until pk in [pn+1..k];
writeln('Выигрыши, выпавшие на номера от ',pn,' до ',pk);
for i:=pn to pk do{идем по заданному диапазону}
 begin
  write(i,' = ');
  n:=0;
  for j:=1 to v do{сверяем номера с массивом выигрышных номероов}
  if i=a[j] then{если совпало}
   begin
    n:=1;{фиксируем}
    break;{дальше не ищем}
   end;
  if n=1 then write(c[j]:0:1) else  write(0);{если совпало, выводим размер выигрыша, нет - 0}
  writeln;
 end;
readln
end.