Даны натуральное число n и целые числа х1,х2,…,хn. Выяснить, верно ли, что сумма тех вещественных чисел , которые больше 20,5, меньше p — Pascal(Паскаль)

var
p, s, n, i, x: integer;
begin
writeln('Введите n: ');
Readln(n);//Считываем n
for i := 1 to n do
begin
writeln('Введите x:');
Readln(x);
if x > 20.5 then//Проверка (x больше 20.5?)
s := s + x;//Считаем сумму
end;
writeln('Введите p: ');
readln(p);
if s < p then //Проверка (s меньше p?)
Writeln('Верно') 
else
Writeln('Неверно');
end.