Решите пожалуйста задачи : 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.