Напишите программку для проверки, есть ли в данном слове буква в.

program letter_v;
var s: string;
n:integer;
begin
writeln(Введите слово);
readln(s);
if pos(в, s, 1)gt;0 then
begin
writeln(1-ая буковка "в" в слове ", s, ");
writeln(находится на позиции номер , pos(в, s, 1), . )
end
else writeln(Буквы "в" в слове ", s, " нет.)
end.