Строки (Делфи)

[RIOs]

Нужно ввести строку из букв, и узнать сколько раз встречается буква "r" .

uses
SysUtils;

var Str: String[5]; i,r:integer;
begin
writeln('vvedite bykvy');
writeln;
read(Str) ;
for i := 1 to Length(Str) do
begin
if Str[i] in ['A'..'Z','a'..'z']
then write (Str[i]) ;
if Str[i]=r then r:=inc(r);
write (r);

readln;
end;
end.

что я делаю не так? ошибки вылазят.

[Mad_Cat]

var Str: String[5]; i,r:integer;c:char;
begin
writeln('vvedite bykvy');
readln(c);
writeln('vvedite cTpoky');
readln(Str) ;r:=0;
for i := 1 to Length(Str) do
begin
if Str[i]=c then inc(r);
end;
write (r);
readln;
end.