Найти ошибку в коде, не записывает данные в файл. условие: создайте два файла, содержащих сведения о десяти хоккейных команд: «динамо» и «спартак» соответственно: имена , число заброшенных ими шайб, сделанных голевых передач, заработанное штрафное время. program hockey; uses crt; type hk = record name : string[20]; shyiba: record gol_per : integer; gol : integer; straf_time : integer; end; end; var hokiyarray : array[1..100] of hk; hokiyarray01 : array[1..100] of hk; i,n : integer; f,f1: text; s : string; begin assign(f,'d: /test.txt'); rewrite(f); write('динамо '); write('введите количество : '); readln(n); for i: =1 to n do begin writeln(''); writeln(' введите данные ',i, ''); write(' введите имя : '); readln( hokiyarray[i].name); writeln(''); writeln; write(' количество заброшеніх шайб : '); readln( hokiyarray[i].shyiba.gol_per); write('количество голевіх передач '); readln( hokiyarray[i].shyiba.gol); write(' количество штрафного времени '); readln(hokiyarray[i].shyiba.straf_time); writeln; end; writeln; with hokiyarray[i] do for i: =1 to n do begin writeln('динамо',f,name,' ',shyiba.gol_per,' ',shyiba.gol,' ',shyiba.straf_time); close(f); end; begin assign(f1,'d: /test01.txt'); rewrite(f1); write('спартак '); write('введите количество : '); readln(n); for i: =1 to n do begin writeln(''); writeln(' введите данные ',i, ''); write(' введите имя : '); readln( hokiyarray01[i].name); writeln(''); writeln; write(' количество заброшеніх шайб : '); readln( hokiyarray01[i].shyiba.gol_per); write('количество голевіх передач '); readln( hokiyarray01[i].shyiba.gol); write(' количество штрафного времени '); readln(hokiyarray01[i].shyiba.straf_time); writeln; end; writeln; with hokiyarray01[i] do for i: =1 to n do begin writeln('спартак',f1,name,' ',shyiba.gol_per,' ',shyiba.gol,' ',shyiba.straf_time); close(f1); end; end; end.
uses
crt;
type
hk = record
name: string[20];
shyiba: record
gol_per: integer;
gol: integer;
straf_time: integer
end
end;
var
hokiyArray, hokiyArray01: array[1..100] of hk;
i, n: integer;
f: text;
begin
Assign(f, 'test.txt');
Rewrite(f);
Writeln('ДИНАМО ');
Write('Введите количество нападающих : '); Readln(n);
for i := 1 to n do
begin
Writeln('');
Writeln(' Введите данные ', i, 'нападающего');
Write(' Введите имя : '); Readln(hokiyArray[i].name);
Writeln('');
Writeln;
Write(' Количество заброшеніх шайб : ');
Readln(hokiyArray[i].shyiba.gol_per);
Write('Количество голевіх передач ');
Readln(hokiyArray[i].shyiba.gol);
Write(' Количество штрафного времени ');
Readln(hokiyArray[i].shyiba.straf_time);
Writeln
end;
Writeln;
for i := 1 to n do
begin
with hokiyArray[i] do
Writeln(f, 'ДИНАМО', name, ' ', shyiba.gol_per, ' ', shyiba.gol,
' ', shyiba.straf_time);
end;
Close(f);
Assign(f, 'test01.txt');
Rewrite(f);
Writeln('СПАРТАК ');
Write('Введите количество нападающих : '); Readln(n);
for i := 1 to n do
begin
Writeln('');
Writeln(' Введите данные ', i, 'нападающего');
Write(' Введите имя : '); Readln(hokiyArray01[i].name);
Writeln('');
Writeln;
Write(' Количество заброшеніх шайб : ');
Readln(hokiyArray01[i].shyiba.gol_per);
Write('Количество голевіх передач ');
Readln(hokiyArray01[i].shyiba.gol);
Write(' Количество штрафного времени ');
Readln(hokiyArray01[i].shyiba.straf_time);
Writeln
end;
Writeln;
for i := 1 to n do
begin
with hokiyArray01[i] do
Writeln(f, 'СПАРТАК', name, ' ', shyiba.gol_per, ' ', shyiba.gol,
' ', shyiba.straf_time);
end;
Close(f)
end.