Вывести количество чисел на интервале и их индексы

Program lab;
const n=20;
type
 m=array [1..n] of real;
 index=array [1..n] of integer;
var
mas1:m;
mas2:index;
 
Procedure Input;
var a,b:integer;
 x,y:string;
 code:integer;
 
 
begin
writeln(' Данная программа предназначена для вывода количества чисел на интервале [a,b] и вывода их индексов');
repeat
 writeln ('Начало интервада a');
 readln(x);
 val(x,a,code);
 if code<>0 then
 writeln('Ошибка');
until code=0;
repeat
writeln ('Конец интервала b');
readln(y);
val(y,b,code);
if code<>0 then
 writeln('Ошибка!');
until code=0;
end;
 
 
Procedure Search;
var i:integer;
 a,b:integer;
  k:integer;
 
 
begin
k:=0;
for i:=1 to n do
 begin
 mas1[i]:=i;
 write(mas1[i]:4:1);
 if (mas1[i]>=a) and (mas1[i]<=b) then
 begin
 k:=k+1;
 mas2[k]:=i;
 end;
 end;
writeln;
if k=0 then writeln('Ошибка') else
 begin
 writeln('Количество=',k);
 writeln('Индексы: ');
 for i:=1 to k do
 write(mas2[i]:4);
 end;
 end;
begin
Input;
Search;
end.

Procedure Input (mas1:array);

function a: integer;
begin
  writeln('Vvedite levuiu granitsu');
  readln(a);
end;
function b: integer;
begin
  writeln('Vvedite pravuiu granitsu');
  readln(b);
end;
 
procedure solve(x,y : integer);
var i: integer;
begin
  for i:=0 to y-x do
    begin
      writeln('Chislo ',x+i,', index ',i+1);
    end;
end;
 
begin
  Solve(a,b);
end.