Строковые переменные (найти букву в строке)

[X-QuadrO]

Собственно сама задача:
Составить программу, выполняющую следующее задание: дана строка символов.
Выяснить, входит ли в строку буква “ж”.

Вот че написал:

var
  i: integer; ent: boolean; str: string;

begin
  write('String:=');
  readln(str);
  ent := false;
  for i := 1 to length(str) do
    if str = 'j' then
    begin ent := true; break; end;
  if ent then writeln('Буква присутствует в строке') else writeln('Буквы в строке нет')
end.

Она работает, но не правильно из-за строчки if str='j' then (т.к. строка не равна одному символу вот он и выводит по ветви else) Подскажите как поправить?

И еще если может\знает кто на записи задачка, гляньте)
Составить программу с использованием записей для выполнения указанного ниже задания.
Заданы проекции вектора на оси координат X и Y. Найти его модуль.

[Plague]

функцию pos изучали?

function Pos(subs,s: string): integer;
Возвращает позицию подстроки subs в строке s. Если не найдена, возвращает 0

var str: string;
begin
  write('String:=');
  readln(str);
  if pos('ж',str)>0 then writeln('Буква присутствует в строке') else writeln('Буквы в строке нет')
end.

[Sinapsik]

Сообщение от X-QuadrO

Собственно сама задача:
Составить программу, выполняющую следующее задание: дана строка символов.
Выяснить, входит ли в строку буква “ж”.

Вот че написал:

var
  i: integer; ent: boolean; str: string;

begin
  write('String:=');
  readln(str);
  ent := false;
  for i := 1 to length(str) do
    if str = 'j' then
    begin ent := true; break; end;
  if ent then writeln('Буква присутствует в строке') else writeln('Буквы в строке нет')
end.

Она работает, но не правильно из-за строчки if str='j' then (т.к. строка не равна одному символу вот он и выводит по ветви else) Подскажите как поправить?

И еще если может\знает кто на записи задачка, гляньте)
Составить программу с использованием записей для выполнения указанного ниже задания.
Заданы проекции вектора на оси координат X и Y. Найти его модуль.

Кэп намекает что тут нужно str[i]...