Witam. Chciałbym napisać program który na wejściu pobiera od użytkownika jakiś tekst i w tym teksie znajduje wystąpienie zadanej literki i wypisuje ile razy ta literka występuje w danym tekście (słowie). Moje dokonania mają się tak jak poniżej. Program co prawda działa ale nie tak jak bym chciał. Proszę o pomoc...!?
program Literki;
var
i,b: Integer;
a,d: char;
tab: array[0..10] of char;
begin
i:=0;
b:=0;
for i:=0 to 10 do
begin
writeln('Podaj tekst:');
readln(tab[i]);
writeln('szukana literka to:');
readln(d);
a:=tab[i];
if a = d then
begin
b:=b+1;
writeln('Litera : ', d , ' wystepuje razy: ',i);
end;
break;
end;
end.