дано натуральное число.(паскаль)

[ex-hack]

дано натуральное число.Верно ли что оно начинается на число "х" и заканчивается на число "у"???
Заранее благодарен!

[Chudo4258]

program Project2;

var n:integer;
    st:string;
    x,y:char;

begin
write('N= '); readln(n);
write('X= '); readln(x);
write('Y= '); readln(y);
str(n,st);
if (st[1]=x)and(st[length(st)]=y) then writeln('Verno')
                                  else writeln('Neverno');
readln
end.

или

program Project1;

var n,x,y,y1:integer;

begin
write('N= '); readln(n);
write('X= '); readln(x);
write('Y= '); readln(y);
y1:=n mod 10; //последяя цифра
while n>10 do
 n:=n div 10; //первая цифра
if (n=x)and(y1=y) then writeln('Verno')
                  else writeln('Neverno');
readln
end.