Помогите с программированием на языке Паскаль

[alexe196]

Помогите с программированием на языке Паскаль

требуется написать программу, которая выводит в одномерном массиве на экран список фамилий из текстового файла (5 штук), сортирует их по алфавиту, а результат записывает в другой текстовый файл.

ОЧЕНЬ прошу помоч:tehnari_ru_8 37:

 

[Vladimir_S]

Легко. Имена файлов и пути поставьте по своему усмотрению.

Var
 f:Text;
 Fam:Array[1..5] of String;
 S:String;
 i,j:Byte;

Begin
 Assign(f,'D:\In.txt');
 Reset(f);
 for i:=1 to 5 do
  begin
   readln(f,Fam[i]);
   writeln(Fam[i]);
  end;
 Close(f);
 writeln;
 for j:=1 to 4 do
  for i:=1 to 5-j do
   if Fam[i]>Fam[i+1] then
    begin
     S:=Fam[i];
     Fam[i]:=Fam[i+1];
     Fam[i+1]:=S;
    end;
 Assign(f,'D:\Out.txt');
 Rewrite(f);
 for i:=1 to 5 do
  begin
   writeln(Fam[i]);
   writeln(f,Fam[i]);
  end;
 Close(f);
 Readln
End.

 

[alexe196]

спасибо большое)