Ввести имя, фамилию и отчество в строку. Найти длину строки, вывести фамилию в обратном порядке (Delphi)

[--PapaZi--]

Немогу доделать задачу.

Ввести имя, фамилию и отчество, как одно данное типа строка. Определить длину строки и количество буквы введенной с клавиатуры. Вывести фамилию в обратном направлении.

program Prizvuche;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var radok, ober_prizv: string;
    kilk,l,i: integer;
    bykva: char;
begin
  write ('Vvedit prizvuche imya ta po batkovi: ');
  readln(radok);
  write ('Vvedit bykvy: ');
  readln(bykva);
  ober_prizv:='';
  kilk:=0;
  l:=length(radok);
  writeln (' Y radky ',l,' sumvoliv ');
  for i:=l downto 1 do
  begin
   ober_prizv:=ober_prizv+radok[i];
   if radok[i]=bykva then kilk:=kilk+1;
   end;
  writeln;
  writeln (' Obernene prizvuche: ',ober_prizv);
  writeln ('K-t shykanoi literu: ',kilk);
  readln
end.

[Niro]

Ну вот, наконец-то догадались что на форуме нет телепатов, и написали само задание. Ещё бы написали полностью по русски, гладишь кто-нибудь и помог бы...

количество буквы введенной с клавиатуры

Смысл данного высказывания, я что-то не очень догоняю

[Serge_Bliznykov]

Сообщение от Niro

Смысл данного высказывания, я что-то не очень догоняю

А!! а я по коду понял, что это!

Нужно ввести букву (задаётся пользователем) и подсчитать, сколько раз эта буква встречается в заданной строке!


--PapaZi-- в каком порядке Вы вводите в строку имя отчество и фамилию ?!

[--PapaZi--]

да ето так...ну и да с русским у меня плохо..((

Порядок таков: фамили, имя, отчество.

[Stilet]

Я что-то не понял а чем код в топе не угодил?

[--PapaZi--]

не исполняется последнее условие...

[Serge_Bliznykov]

ну, можно так, например:

  l:=length(radok);
  writeln (' Y radky ',l,' sumvoliv ');
  kilk:=0;
  for i:=1 to l do
     if radok[i]=bykva then kilk:=kilk+1;

  ober_prizv:='';   
  {цикл от первого пробела в строке к началу строки}
  for i:=Pos(' ',radok)-1 downto 1 do
    ober_prizv:=ober_prizv+radok[i];

  writeln (' Obernene prizvuche: ',ober_prizv);
  writeln ('K-t shykanoi literu: ',kilk);

[--PapaZi--]

О да ето то что нужно. Очень благодарен спс )))