Задачи Паскаль !!!

[andrey2]

кто может помоги решить
пропустил два урока и не знаю этой темы
1)Составить программу, которая подсчитывает, какой процент слов начинается на заданную букву.
2)Составить программу, которая подсчитывает, какой процент каждой буквы встречается в заданном тексте.
3)Вывести на экран букву, которая встречается чаще всего.
4)Составить программу, которая определяет сколько раз в тексте встречается каждая буква.

[pomoshnic]

1)

var c,b:char;
s:string;
v,n,i:word;
begin
write('s=');readln(s);
write('b=');readln(b);
s:=' '+s;
for i:=1 to length(s) do
begin
if s[i]=' ' then
begin
inc(v);
if s[i+1]=b then inc(n);
end;
end;
writeln(v/100*n:1:2,'%');
readln;
end.

[pomoshnic]

2)

const A=ord('A');
z=ord('z');
var c,b:char;
s:string;
v,i:word;
n:array [A..z] of real;
begin
write('s=');readln(s);
for i:=1 to length(s) do
begin
inc(v);
n[ord(s[i])]:=n[ord(s[i])]+1;
end;
for i:=a to z do
write(chr(i),'-',v/100*n[i]:3:2,'| ');
readln;
end.

[capta1n]

вот тут

writeln(v/100*n:1:2,'%');

проценты считаются по-другому

writeln(n/v*100:1:2,'%');

во второй задаче здесь ошибка:

n[ord(s[i])]:=n[ord(s[i])]+1;

[capta1n]

Вот задавали задачу тут на форуме недавно: на основе текста вывести процент каждой встретившейся буквы: вот я решил - не пропадать же добру а тему ту закрыли, к сожалению :

program project;
var
 a : array ['A'..'Z'] of byte;
 s : string;
 c : char;
 i,count : byte;

begin

  write ('s: '); readln (s);
  for c:='A' to 'Z' do a[c]:=0;

  count:=0;
  for i:=1 to length(s) do
   if s[i] in ['A'..'Z','a'..'z'] then
   begin
     inc(count);
     for c:='A' to 'Z' do
      if upcase(s[i])=c then
      begin
        inc(a[c]);
        break
      end
   end;

  for c:='A' to 'Z' do
   if a[c]<>0 then writeln (c,' : ',a[c]/count*100:0:2,'%');

  readln
end.