прочитать, изменить и переписать в новый файл массив.

[Руслан124]

ребят. нужна ваша помощь.

вот задание:
Прочитать из файла строковый массив из 25 элементов, каждая строка которого представляет собой фамилию, имя и отчество, записанные через пробелы. Отсортировать фамилии, а по необходимости и имена, и отчества в алфавитном порядке. Полученный массив записать в новый файл.

я разбил задачу на две части:
1) прочитать из файла данные и их переписать в другой файл
2) сортировка фамилий по алфавиту

разбить то я разбил, а вот соединить в единую программу не могу. вот тексты:

из файла в файл

program pr1;
var G,F:text;
Name:array [1..5] of string;
i,n:integer;
s:string;
begin
Assign(F,'f1.txt');
reset(F);
Assign(G,'f2.txt');
Rewrite(G);
for i:=1 to n do
if Name[i]>Name[i+1] then begin
s:=Name[i];
Name[i]:=Name[i+1];
Name[i+1]:= s;
end;
while not Eof(F) do begin
readln(F,Name[i]);
writeln(G,Name[i]);
end;
close(F);
close(G);
end.

сортировка

program pr1;
var
Name:array [1..25] of string;
f:text;
s:string;
i,j,n:integer;
begin
assign(f,'output.txt');
rewrite(f);
writeln('n=: ');
read(n);
for i:=1 to n do begin
writeln('fio ',i,': ');
read(Name[i]);
end;
writeln('...............');
for i:=1 to n do
for j:=1 to n-1 do
if Name[j]>Name[j+1] then begin
s:=Name[j];
Name[j]:=Name[j+1];
Name[j+1]:= s;
end;
for i:=1 to n do begin
write(f,Name[i],' ');
writeln;
end;
writeln('output.txt!!!!');
Close(f);
end.

помогите пожалуйста!!!