Вывести данные об областях, население которых меньше Х млн. жителей

uses crt; 
type oblast=record 
name:string;
regcenter:string;
people:string;
area:string;
governor:string;
end;
var  oblast1: array[1..100] of oblast;
i, n : integer; 
begin 
write('Введите количество областей: '); 
readln(n); 
for i:=1 to n do 
begin
  textcolor(7);
writeln('----------------------');
writeln('Введите данные ', i,' области:'); 
write('Название области: '); 
readln(oblast1[i].name); 
write('Областной центр: '); 
readln(oblast1[i].regcenter); 
write('Население: '); 
readln(oblast1[i].people); 
write('Площадь территории: '); 
readln(oblast1[i].area); 
write('Губернатор: '); 
readln(oblast1[i].governor);   
clrscr; 
end;    
end.

write('Введите X жителей: ');
readln(x);
for i:=1 to n do
begin
if (oblast1[i].people<x) then 
begin
textcolor(12);
writeln('Область ', i); 
writeln('Назва області: ',oblast1[i].name); 
writeln('Обласний центр: ',oblast1[i].regcenter); 
writeln('Населення: ',oblast1[i].people); 
writeln('Площа території: ',oblast1[i].area); 
writeln('Губернатор: ',oblast1[i].governor); 
writeln('----------------------');  
end;
end.