Решите : 1) вывести на экран общую длину фамилии, имени и отчества 2) вывести на экран свои инициалы 3) определить количество букв "и" в фамилии

Var  n, f, o: string;  a, i: integer;
begin 
write('Введите фамилию '); 
Readln(f); 
write('Введите имя '); 
Readln(n); 
write('Введите отчество '); 
Readln(o); 
a := length(n) + length(f) + length(o); 
Writeln('Длина имени, фамилии и отчества равна ', a); 
Writeln('Инициалы ', f[1], '. ', n[1], '. ', o[1], '. '); 
a := 0; 
for i := 1 to length(f) do   
if f[i] = 'и' then a := a + 1; 
Writeln('Количество букв и в фамилии ', a);
end.