Мови програмування, порядковість і виключення

[Vitalik1]

Потрібно вивести перші літери з імя (ініціали )Иванов Степан Иванович И.С.И. Дана програма лише показуэ скыльки лытер у словы ы скыльки з них "а"

program lab6;

	
PHP код:
	

		
			
[HTML]

{$APPTYPE CONSOLE}

uses
  SysUtils;

var radok: string;
      i,L,kilk,nom1: integer;

 begin
     write('Vvedit slovo: ');
     readln (radok);
     L:= length (radok);
     kilk:=0;
  for i:=1 to L do
  if radok[i]='a' 
  then begin
  kilk:=kilk+1;
 end;
  writeln('Kilkist bykv: ',L);
  writeln('Kilkist bykv (a):',kilk);
  readln
end.
[/HTML]