Исходная строка содержит сведения о человеке-Вывести эти сведения на экран в следующем виде:

uses crt;
const bk=['A'..'Z','a'..'z','А'..'п','р'..'ё'];
      cf=['0'..'9'];
var s,s1,fm,io,gr,rs:string;
    i,j:byte;
begin
clrscr;
writeln('Введите в любом порядке -');
writeln('фамилию, инициалы (И.О.), год рождения(4 цифры), рост(3 цифры)');
readln(s);
{ищем фамилию}
i:=1;
while i<=length(s) do
if(s[i] in bk)and((i=1)or(s[i-1]=' '))and(s[i+1]<>'.')then
 begin
  fm:='';
  j:=i;
  while(j<=length(s))and(s[j] in bk) do
   begin
    fm:=fm+s[j];
    j:=j+1;
   end;
  i:=i+length(fm);
 end
else i:=i+1;
write(fm,' ');
{ищем инициалы}
j:=pos('.',s);
io:=copy(s,j-1,4);
write(io,' ');
{ищем год и рост}
i:=1;
while i<=length(s) do
if(s[i] in cf)and((i=1)or(s[i-1]=' '))then
 begin
  s1:='';
  j:=i;
  while(j<=length(s))and(s[j] in cf) do
   begin
    s1:=s1+s[j];
    j:=j+1;
   end;
  if length(s1)=3 then rs:=s1
  else gr:=s1;
  i:=i+length(s1);
 end
else i:=i+1;
write(gr,' года рождения имеет рост ',rs);
readln
end.

uses crt;
const bk=['A'..'Z','a'..'z','А'..'п','р'..'ё'];
      cf=['0'..'9'];
var s,s1,fm,io,gr,rs:string;
    i,j:byte;
begin
clrscr;
writeln('Введите в любом порядке -');
writeln('фамилию, инициалы (И.О.), год рождения(4 цифры), рост(3 цифры)');
readln(s);
s:=s+' ';
while pos(' ',s)>0 do
 begin
  s1:=copy(s,1,pos(' ',s)-1);
  if(s1[1] in bk)and(s1[2]<>'.')then fm:=s1
  else if (s1[1] in bk)and(s1[2]='.')then io:=s1
  else if(s1[1] in cf)and(length(s1)=4)then gr:=s1
  else rs:=s1;
  delete(s,1,pos(' ',s));
 end;
write(fm,' ',io,' ',gr,' года рождения имеет рост ',rs);
readln
end.

var st,s,s1,fm,io,gr,rs:string;
    i,j:byte;
begin
clrscr;
writeln('Введите в любом порядке -');
writeln('фамилию, инициалы (И.О.), год рождения(4 цифры), рост(3 цифры)');
readln(st);
s:=st+' ';