Дана последовательность из 10 чисел.Вывести на экран одной строкой числа в интервале от 3.5 до 4.0

program posledovatelnost;
 var
 i: integer;
 m: real;
 begin
  randomize;
  cls;
  for i:=1 to 10 do
   begin
    m:=random*3;
    if (m>=3.5) and (m<=4)
    then write(m:8:1);
   end;
  end.

program mm;
//uses crt;
var mas:array[1..100] of integer;
i,n,k,ii:integer;
begin
cls;
for i:=1 to 10 do                     
begin                              
mas[i]:=random(100)-random(100);        
if mas[1]<0 then mas[1]:=random (100); 
write (mas[i],'  ');                   
end;
writeln;                  
k:=0;
for i:=1 to 10 do
begin
if (mas[i+1]<0) and (k=0) then
begin
writeln ('1:',mas[i]);
k:=k+1;
end;
end;
end.

uses crt;
var
 mas:array[1..10] of real;
 i:integer;
begin
 clrscr;
 writeln('ввод десяти чисел');
 for i:=1 to 10 do
  readln(mas[i]);
 i:=1;
 while mas[i] > 0 do
  begin
   if (mas[i] > 3.5) and (mas[i] < 4) then write(mas[i]:5:3, ' ');
   inc(i);
  end;
end.