Ребят найдите ошибку!

[agunek]

вот условие задачи : Определить какой процент слов в тексте начинаются и заканчиваются введенной буквой.

вот мое решение

program zadacha2v10;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var s:string;
     c,x,a,i:integer;
     b:char;
begin
write('vvedi tekst:');
readln(s);
write('vvedi bykvy');
readln(b);
a:=0;
x:=0;
begin
for i:=1 to length(s) do
if (s[i+1]=' ') then
a:=a+1;
end;
begin
if (copy(s, 1, 1) = b) and (copy(s, length(s), 1) = b) then
x:=x+1;
end;
c:= x/a*100;
writeln('Procent sovpadenia = ',c'%');
readln;
end.

в чем я тут ошибся?!
Замечание модератора: Используйте тег [CODE]

[LeBron]

copy - процедура. А не функция. Это раз. Не понимаю, зачем розставлены операторны скобки - это два. Идет просмотр текста без выделения слова вообще - это три. В общем, надо много переделать Вернее не много в плане кода, но много в плане алгоритма. Заведите дополнительную строку, копируйте в нее слово и работайте с ним

slovo:=copy(s,poziciya_s_kotoroy_nachinayetsya_slovo,dlina_clova);

[LeBron]

Еще вариант - сразу в строке сравнивайте. Для слова запоминайте номера символов начала и конца (первый будет сразу после пробела перед словом, второй - перед пробелом после слова) и сравнивайте их.

[Alex Cones]

copy - процедура. А не функция.

Вообще-то наоборот.
Функция - то, что возвращает результат.
Процедура - выполняет ряд операторов, не возвращая конкретного результата.

[LeBron]

Сообщение от Alex Cones

Вообще-то наоборот.
Функция - то, что возвращает результат.
Процедура - выполняет ряд операторов, не возвращая конкретного результата.

Верно. Согласен. Как раз в этом месте все хорошо.
agunek, из опечаток -

writeln('Procent sovpadenia = ',c'%');

- нету одной запятой.

[Alex Cones]

Var
 SL: Array[0..128] of String;
 S:String;
 b:Char;
 I,J,A:Integer;
Begin
 Write('Enter string:');ReadLn(S);
 Write('Enter letter:');ReadLn(b);
 J:=0;
 I:=2; 
 While S<>'' do
  Begin
   If S[I] = ' ' Then 
    Begin
     SL[J]:=Copy(S,1,I);
     Delete(S,1,I);
     I:=1;
     Inc(J);
    End
  Else
   Inc(I);
 For I:=0 to J do
  If (SL[I,1]=SL[I,Length(SL[I]) And (SL[I,1] = b) Then Inc(A);
 Writeln('Percent of special words:',100*A/J:8:4,'%');
 ReadLn;
End;

Как то так, не проверял, писал здесь...

P.S. Раз пишете в Delphi, то можете использовать динамические массивы...

[agunek]

program zadacha2v10;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var t:string;
     x,a,i:integer;
     s : array[1..256] of string;
     b:char;
     c:real;
begin
write('vvedi tekst:');
readln(t);
write('vvedi bykvy');
readln(b);
a:=1;
x:=0;
begin
for i:=1 to length(t) do
if copy(t, i, 1) <> ' ' then
s[a]:= copy(t, i, 1)
else
a := a + 1;
end;
begin
for i := 1 to a do
if (copy(s[i],1, 1) = b) and (copy(s[i], length(s[i])
, 1) = b) then
x:=x+1;
end;
c:=(x/a)*100;
writeln('Procent sovpadenia = ',c,'%');
readln;
end.

вот мой конечный вариант...все вроде работает..но что с ответом???!сделать чтобы выводило нормально??!
Замечание модератора: Используйте тег [CODE]

[k1r1ch]

Может так:

writeln('Procent sovpadenia = ',c:5:2,'%');

[agunek]

да спасибо работает хорошо)))