Файлы, Паскаль

[netsky9]

Файлы, Паскаль

Дан текстовый файл с данными о соревновании: название команды, количество набранных очков, количество забитых голов, количество пропущенных голов. Вывести список команд на экран. Вывести в текстовый файл команды, упорядоченные в зависимости от занятого места.
Вот программа с выводом на экран, проблема в том что не знаю, как вывести отсортированный список в файл.

uses crt;
type sport=record
           naz:string[20];
           kol,zab,pro:integer;
           end;
const nmax=20;
var a:array[1..nmax] of sport;
    x:sport;
    n,i,j:byte;
begin
clrscr;
repeat
write('Количество команд до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Введите данные:');
for i:=1 to n do
 begin
  writeln('Команда ',i);
  with a[i] do
   begin
    write('Название: ');readln(naz);
    write('Количество очков: ');readln(kol);
     write('Количество забитых голов: ');readln(zab);
      write('Количество пропущенных голов: ');readln(pro);
   end;
 end;
clrscr;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i].kol<a[j].kol then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;

for i:=1 to n do
with a[i] do
 begin
  gotoXY(1,whereY);write(' ',i,')');
  gotoXY(9,whereY);write(naz);
  gotoXY(79,whereY);writeln(' ');
 end;

readln
end.

 

[Vladimir_S]

Да ладно, всё Вы (судя по другой задачке) умеете! Объявите файл, откройте на запись да и выводите в него. Только в файл выводите без этих CRT-шных рюшечек типа GotoXY(). В конце закройте файл, да и всё.

 

[netsky9]

Да ладно, всё Вы (судя по другой задачке) умеете! Объявите файл, откройте на запись да и выводите в него. Только в файл выводите без этих CRT-шных рюшечек типа GotoXY(). В конце закройте файл, да и всё.

ОК попробую. если не получиться добавлю изменённый код.