Программа в паскале (ЛУЧШИЙ ОТВЕТ)!

uses crt;
var
f,ff : text;
Procedure create;
var
s : String;
k : char;
begin
clrscr;
Assign(f,'file.in');rewrite(f);
Repeat
Writeln('Vvedi Stroky');
Readln(s);
Writeln(f,s);
writeln('Prodolgim vvod? [Y/N]');
k := readkey;
until UpCase(K)='N';
Close(f);
end;

procedure Gu;
var i : Integer;
p : char;
l : byte;
s,ss : string;
begin
assign(f,'File.in');Reset(f);
Assign(ff,'File.out');ReWrite(Ff);
Writeln('vvedi 1 bykvy'); Readln(P);
Writeln('vvedi dliny');Readln(l);
While not eof(f) do
begin
readln(f,s);
ss := '';
s := s+' ';
For i := 1 to length(s) do
if s[ i] <> ' ' then ss := ss+s[i ]
else
begin
If (ss[1] = p) and (length(ss)=l) then Writeln(ff,ss);
ss := '';
end;
end;
Close(ff);
end;

begin
Create;
Gu;
end.

Я когда-то делал такую, измени её немного и будет тебе счастье :)
Вводится произвольная строка русского текста, а также одна из букв русского алфавита. Подсчитать, какой процент слов в строке начинается на эту букву. Слова разделены пробелами.

uses crt;
var
s: string;
a: char;
i,k,j: integer;
g: real;
begin
clrscr;
writeln('Vvedite predlojenie');
readln(s);
s:=' '+s; k:=0;j:=0;
for i:=1 to length(s)-1 do
if (s=' ') and (s[i+1] <> ' ')
then k:=k+1;
writeln('kol-vo slov ',k);
writeln('vvedite bukvu ');
readln(a);
for i:=1 to length(s)-1 do
if (s = ' ') and (s[i+1]= a)
then j:=j+1;
writeln('kol-vo bukv = ',j);
g:=j*100/k;
writeln('Kol-vo slov na bukvu (',a,')=',g:2:2,'%');
readln;
end.

program programma;
const c:=nahui;
var
a:string;
b:string;
c:string;
d:string;
writeln('Sostavte progu');
a:=idi;
b:=ty;
d:=a+b+c
writeln(d);
end.