Написать программу решение задач

[Alexandr1806]

дано натуральное число N
-выяснить входит ли цифра 3 в запись числа N
-переставить первую и последнюю цифры числа N
помогите пожалуйста решить (турбо паскаль)

[Stilet]

var s:string;c:char;
begin
 str(333333,s);
 if pos('3',s)<>0 then write('Есть') else write('неа');
 c:=s[1]; s[1]:=s[Length(s)];s[Length(s)]:=c;
 write(s); readln;
end.