Даны векторы X[5],Y[10]. Символьной переменной присвоить значение TRUE

uses crt;
type mas=array[1..10] of real;
{ввод данных, параметры вектор, его размер, число меньше которого нужно 
считать и имя вектора}
procedure Vvod(var a:mas;n:byte;b:real;c:char);
var i:byte;
begin
writeln('Введите ',n,' элементов вектора ',c,' в том числе меньше ',b:0:1);
for i:=1 to n do
 begin
  write('el[',i,']=');
  readln(a[i]);
 end;
clrscr;
end;
{вывод вектора на экран}
procedure Vyvod(a:mas;n:byte;c:char);
var i:byte;
begin
writeln('Вектор ',c);
for i:=1 to n do
write(a[i]:0:2,' ');
writeln;
end;
{подсчет количества нужных элементов}
function Kol(a:mas;n:byte;b:real):byte;
var i,k:byte;
begin
k:=0;
for i:=1 to n do
if a[i]<b then k:=k+1;
Kol:=k;
end;
var x,y:mas;
    f:boolean;{логическая переменная}
begin
clrscr;
randomize;
Vvod(x,5,0.5,'X');
Vvod(y,10,2.5,'Y');
Vyvod(x,5,'X');
writeln('Количество меньшиих 0.5=',Kol(x,5,0.5));
writeln;
Vyvod(y,10,'Y');
writeln('Количество меньшиих 2.5=',Kol(y,10,2.5));
writeln;
f:=Kol(x,5,0.5)>=Kol(y,10,2.5);{присвоим значение}
write('f=',f);{выведем}
readln
end.

var c:char;

var s: String;
...
S:='TRUE';