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