Как заменить код На Pascal ABC (обработка типизированного файла записей)

[ALEXandr20333]

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

сonst FName = 'имя файла';
type
  str20 = string[20];
  tSports = record
    Fam : str20;
    num : str20;
    kol : word;
  end;
 
  function wwod(var ns : tSports): boolean;
  begin
    writeln('----'); wwod:=false;
    with ns do begin
      write('Familiq : '); readln(fam); if fam='' then exit;
      write('Nomer   : '); readln(num); if num='' then exit;
      write('Kol o4kov : '); readln(kol);
    end;
    wwod:=true;
  end;
 
var
  f : file of tSports;
  S,s1 : tSports;
Begin
  assign(f,Fname);
  {$I-} reset(f); {$I+}
  if ioresult<>0 then begin
    writeln('fail ne nayden. wwedite dannye.');
    rewrite(f);
    while wwod(s) do write(f,s);
    close(f); reset(f);
  end;
 
  writeln('sportcmeny:');
  while not eof(f) do begin
    read(f,s);
    writeln(s.fam:20,s.num:20,s.kol:10);
  end;
 
  if filesize(f)<2 then begin  // проверка количества записей в файле
     writeln('w ffaile nedostato4no zapisey');
     close(f); exit;
  end;
 
  reset(f); read(f,s); read(f,s1);  // указатель на начало, читаем первые 2 записи
  reset(f); write(f,s1); write(f,s);  // указатель на начало, пишем первые 2 записи
  close(f);                               // сохраняем изменения
  reset(f);                               // указатель на начало
  writeln('sportcmeny posle smeny lidera:');
  while not eof(f) do begin
    read(f,s);
    writeln(s.fam:20,s.num:20,s.kol:10);
  end;
  close(f);
  readln;
End.

и как вот эту строку заменить чтобы работала программа в PascalABS (бьет ошибку)
if ioresult<>0 then begin
writeln('fail ne nayden. wwedite dannye.');

[ZX Spectrum-128]

FileExists() вам поможет.

const
  FName = 'имя файла';
type
  str20 = string[20];
  tSports = record
    Fam : str20;
    num : str20;
    kol : word;
  end;
var
  f : file of tSports;
  S,s1 : tSports;

function wwod(var ns : tSports): boolean;
begin
  writeln('----'); 
  wwod:=false;
  with ns do 
    begin
      write('Familiq : '); 
      readln(fam); 
      if fam='' then 
        exit;
      write('Nomer : '); 
      readln(num); 
      if num='' then 
        exit;
      write('Kol o4kov : '); 
      readln(kol);
  end;
  wwod:=true;
end;

Begin
  assign(f,Fname);
  if not FileExists(fname) then 
    begin
      writeln('fail ne nayden. wwedite dannye.');
      rewrite(f);
      while wwod(s) do 
        write(f,s);
      close(f); 
  
    end;
  reset(f);  
  writeln('sportcmeny:');
  while not eof(f) do 
    begin
      read(f,s);
      writeln(s.fam:20,s.num:20,s.kol:10) ;
    end;
  if filesize(f)<2 then 
    begin // проверка количества записей в файле
      writeln('w ffaile nedostato4no zapisey');
      close(f); 
      exit;
    end;
  reset(f); read(f,s); read(f,s1); // указатель на начало, читаем первые 2 записи
  reset(f); write(f,s1); write(f,s); // указатель на начало, пишем первые 2 записи
  close(f); // сохраняем изменения
  reset(f); // указатель на начало
  writeln('sportcmeny posle smeny lidera:');
  while not eof(f) do 
    begin
      read(f,s);
      writeln(s.fam:20,s.num:20,s.kol:10) ;
    end;
  close(f);
  readln;
End.

[ALEXandr20333]

выбивает ошибку ""формат вывода :n неприменим к данным типа word

[ZX Spectrum-128]

У меня отработало нормально. В какой строке у вас ошибка?

[ALEXandr20333]

вот в этой
writeln(s.fam:20,s.num:20,s.kol:10) ;

[Serge_Bliznykov]

потому как Ваш уродец Pascal ABC - это не Паскаль, а сатира на него!

значит,
либо выкиньте :20 после s.kol

либо тип word в описании типа замените на Integer

либо сделайте так:

var ikol : longint;
Begin
  assign(f,Fname);
  if not FileExists(fname) then
    begin
      writeln('fail ne nayden. wwedite dannye.');
      rewrite(f);
      while wwod(s) do
        write(f,s);
      close(f);

    end;
  reset(f);
  writeln('sportcmeny:');
  while not eof(f) do
    begin
      read(f,s);
      ikol := s.kol;
      writeln(s.fam:20,s.num:20, ikol:20);
    end;
  if filesize(f)<2 then
    begin // проверка количества записей в файле
      writeln('w ffaile nedostato4no zapisey');
      close(f);
      exit;
    end;
  reset(f); read(f,s); read(f,s1); // указатель на начало, читаем первые 2 записи
  reset(f); write(f,s1); write(f,s); // указатель на начало, пишем первые 2 записи
  close(f); // сохраняем изменения
  reset(f); // указатель на начало
  writeln('sportcmeny posle smeny lidera:');
  while not eof(f) do
    begin
      read(f,s);
      ikol := s.kol;
      writeln(s.fam:20,s.num:20, ikol:20);
    end;
...

[ZX Spectrum-128]

Сообщение от ZX Spectrum-128

У меня отработало нормально. В какой строке у вас ошибка?

У меня пабц.нет оказывается

[ALEXandr20333]

const
  FName = '1.txt';
type

int=integer;
  str20 = string[20];
  tSports = record
    Fam : str20;
    num : str20;
    kol : int;
  end;
var
  f : file of tSports;
  S,s1 : tSports;
ikol : longint;
function wwod(var ns : tSports): boolean;
begin
  writeln('----');
  wwod:=false;
  with ns do
    begin
      write('Familiq : ');
      readln(fam);
      if fam='' then
        exit;
      write('Nomer : ');
      readln(num);
      if num='' then
        exit;
      write('Kol o4kov : ');
      readln(kol);
  end;
  wwod:=true;
end;

Begin

 assign(f,Fname);
  if not FileExists(fname) then
    begin
      writeln('fail ne nayden. wwedite dannye.');
      rewrite(f);
      while wwod(s) do
        write(f,s);
      close(f);

    end;
  reset(f);
  writeln('sportcmeny:');
  while not eof(f) do
    begin
      read(f,s);
      ikol := s.kol;
      writeln(s.fam:20,s.num:20, ikol:20);
    end;
  if filesize(f)<2 then
    begin // проверка количества записей в файле
      writeln('w ffaile nedostato4no zapisey');
      close(f);
      exit;
    end;
  reset(f); read(f,s); read(f,s1); // указатель на начало, читаем первые 2 записи
  reset(f); write(f,s1); write(f,s); // указатель на начало, пишем первые 2 записи
  close(f); // сохраняем изменения
  reset(f); // указатель на начало
  writeln('sportcmeny posle smeny lidera:');
  while not eof(f) do
    begin
      read(f,s);
      ikol := s.kol;
      writeln(s.fam:20,s.num:20, ikol:20);
    end;
    end.

вот сделал но МЕСТАМИ ЗАПИСИ НЕ МЕНЯЕТ. ПОЧЕМУ????



___________
Форматируйте код не тегами цитирования, а специальными тегами для кода::
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)

Модератор.

[ZX Spectrum-128]

Указывайте прямо номер позиции в файле
Seek(f, number); потом записывайте
Нумерация с нуля

[ALEXandr20333]

а на примере как будет выглядеть