Чтение и запись из файла и в файл массива данных строковых переменных. Turbo Pascal

[Spidey-Goblin]

Чтение и запись из файла и в файл массива данных строковых переменных. Turbo Pascal

Доброго времени суток.
Помогите, пожалуйста, в коде изменить ввод и вывод данных, ввод/вывод должен производится из/в файл.
Вместо:
a[1]:='Nedovesov';
a[2]:='Kostushko';
a[3]:='Kostaven';
a[4]:='Belmasov';
a[5]:='Bolicheva';
a[6]:='Bavlov Z. A.';
a[7]:='Bavlov V. E.';
Чтение из файла 1.txt
А вместо:
writeln('--After sort--');
For i:=1 to n do
writeln(A);
Запись в файл 2.txt
____________________________
Вот сама программа:

Program sort;
uses crt;
Const n=7; {кол-во людей в списке}
Var A:array[1..n] of string;
i,j:byte;
t:string;
Function MyUpCase(s:string):string;
Var i:byte;
Begin For i:=1 to Length(s) do {от 1 до длинны строки, Length - узнаёт кол-во символов в строке}
MyUpCase:=s;
End;
Begin
clrscr;
a[1]:='Nedovesov';
a[2]:='Kostushko';
a[3]:='Kostaven';
a[4]:='Belmasov';
a[5]:='Bolicheva';
a[6]:='Bavlov Z. A.';
a[7]:='Bavlov V. E.';
writeln('--Before sort--');
for i:=1 to n do
writeln(a[i]);
For i:=n downto 2 do
For j:=2 to i do
if MyUpCase(A[j])<MyUpCase(A[j-1]) then
Begin
t:=A[j];
A[j]:=A[j-1];
A[j-1]:=t;
End;
writeln;
writeln('--After sort--');
For i:=1 to n do
writeln(A[i]);
readln;
End.

 

[Vladimir_S]

Помогите, пожалуйста, в коде изменить ввод и вывод данных, ввод/вывод должен производится из/в файл.

Легко.
Но прежде объясните Вы мне, сударь, вот что вот это за ахинея за такая:

Function MyUpCase(s:string):string;
Var i:byte;
Begin For i:=1 to Length(s) do {от 1 до длинны строки, Length - узнаёт кол-во символов в строке}
MyUpCase:=s;
End;

Вы хотя бы примерно представляете себе, что делает эта функция? Так вот - объясняю: в ней происходит копирование строки по имени s в строку по имени MyUpCase, причем проделывается эта абсолютно идентичная операция столько раз, сколько символов содержит строка s. Короче говоря, ни малейшего смысла этот бред не имеет. В алгоритм упорядочения можно прямо подставлять строки-компоненты массива А и не маяться дурью.

Const
 n=7;
Var
 A:array[1..n] of string;
 i,j:byte;
 t:string;
 f1,f2:Text;

Begin
 Assign(f1,'1.txt');
 Reset(f1);
 Assign(f2,'2.txt');
 Rewrite(f2);
 for i:=1 to n do
  readln(f1,A[i]);
 close(f1);
 for i:=n downto 2 do
  for j:=2 to i do
   if A[j]<A[j-1] then
    begin
     t:=A[j];
     A[j]:=A[j-1];
     A[j-1]:=t;
    end;
 for i:=1 to n do writeln(f2,A[i]);
 Close(f2);
End.