Строки в Паскале

[Lev.F]

Помогите доработать Пусть текст предстовляет собой последовательность строк. На каждой строке находится имя, фамилия и отчество. Распечатайте все отчества по алфавиту, а также текст, содержащий строки, состоящий толька из имен и фамилий.

Uses wincrt;
const n=3;
var
f:array [1..n] of string[30];
i,k,j:integer;
c,b:string[30];
begin
for i:=1 to n do
begin
writeln ('Введи отчество');
readln(f[i]);
end;
for i:=1 to n-1 do
begin
b:=f[i]; k:=i;
for j:=i+1 to n do
begin
c:=f[j];
if c<b then begin b:=f[j]; k:=j
end;
end;
c:=f[i]; f[i]:=f[k]; f[k]:=c
end;
writeln;
writeln('В алфавитном порядке: ' );
for
i:=1 to n do
writeln(f[i])
end.
Надо чтоб вывел ФИО, а все отчества в алфавитном порядке вывел на новую строку. я сделал чтоб только отчества выводил в алфавитном порядке