SOS!!!

[--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.

[Serge_Bliznykov]

______________
1) Название темы по правилам форума должно адекватно отражать суть решаемой задачи/проблемы.


2) Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)

Модератор.