дана строка, состоящая из фио, найти длины трех слов...длины фамилии и имени нашла,а вот отчество не поддается%)program Stroka;
uses crt;
var a:string[40];l,h,n,j,s,k,i:byte; c:string[3];
begin
clrscr;
writeln ('vvedite FIO');
readln (a);
c:='';
s:=0;
n:=length(a);
for i:=1 to n do begin
c:=a;
if c='a'then s:=s+1;
end;
writeln ('kolichestvo a= ',s);
writeln ('dlina stroki=',n);
l:=pos(' ',a);
h:=l-1;
k:=0;
for i:=(l+1) to n do begin
if (a=' ') then k:=(i-1);
end; k:=k-l;
j:=0;
for i:=(k+1) to n do begin
j:=(i-(k+h));
end; j:=j-k;
writeln ('dlina familii=',h);
writeln ('dlina imeni=',k);
writeln ('dlina otchestva=',j);
readln
end.
вот решение ,помогите доделать