Вывести на экран те числа, которые попадут в интервал

Uses CRT;
Var
 a,b,c: char;
 S: string;
Begin
 repeat
  c:=readkey;
  if c in ['1'..'9'] then
   Begin
    S:=S+c;
    Write(c);
   End;
 until c='0';
 Writeln('0');
 Write('a= ');
 Repeat
  a:=readkey;
 Until (a in ['0'..'9']);
 Writeln(a);
 Write('b= ');
 Repeat
  b:=readkey;
 Until (b in ['0'..'9']);
 Writeln(b);
 Write('Result: ');
 While S<>'' do
  Begin
   If (S[1]>=a)and(S[1]<=b) then
    Write(S[1]);
   delete(S,1,1);
  End;
 Writeln;
End.

Var
 N, P: Longint;
Begin
 Write('N= ');
 Readln(N);
 P:=0;
 Repeat
  P:=(P+(N mod 10))*10;
  N:=N div 10;
 Until N=0;
 P:=P div 10;
 Writeln('P= ',P);
End.

Var
 N, K, Summ: integer;
Begin
 Write('N= ');
 Readln(N);
 K:=0;
 Summ:=0;
 Repeat
  Inc(K);
  Inc(Summ,K);
 Until Summ+K>N;
 Writeln('K= ',K);
 Writeln('Summ= ',Summ);
End.

Var
 x,y,x1,y1,x2,y2: integer;
Begin
 Write('x: ');
 Readln(x);
 Write('y: ');
 Readln(y);
 Write('x1: ');
 Readln(x1);
 Write('y1: ');
 Readln(y1);
 Write('x2: ');
 Readln(x2);
 Write('y2: ');
 Readln(y2);
 If (x>x1) and (x<x2) and
    (y<y1) and (y>y2) then
  Writeln('Верно') else
  Writeln('Не верно');
End.

uses crt;
var a,b,c,n,i:integer;
    m:array[1..100] of integer;
begin
clrscr;
write('Введите левую границу интервала a=');
readln(a);
write('Введите правую границу интервала b>a b=');
repeat
readln(b);
until b>a;
writeln('Введите числа, окончание ввода 0:');
n:=0;
repeat
readln(c);
if (c>=a)and(c<=b)then
 begin
  n:=n+1;
  m[n]:=c;
 end;
until c=0;
writeln('Числа из интервала [',a,',',b,']');
for i:=1 to n do
write(m[i],' ');
readln
end.