Задача на последовательность

[Ильдар Новичок]

var b,c:real;
a,n,r:integer;
i:boolean;
m:array[0..t] of real;
begin
r:=0;
writeln('Ââåäèòå ÷èñëî b è n');
write('b=');readln(b);
write('n=');readln(n);
writeln('Ââåäèòå ïîñëåäîâàòåëüíîñòü ÷èñåë');
while r<n do
begin
read(c);
writeln(' ');
m[r]:=c;
r:=r+1;
end;
i:=true;
for a:=0 to (n-1) do
begin
if (b<m[a]) and (i) then begin
writeln(b);
writeln(m[a]);
i:=false;
continue
end;
writeln(m[a]);

end;
if b>(m[n-1]) then writeln(b);
end.