Строки Паскль

[Lev.F]

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

Uses wincrt;

const n=2;

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 ('Введи F.I.O');

read(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.

Нужно чтоб вывел отчество на новую строку в алфвитном порядке