Работа с файлом /// Фестиваль с 20 июля по 10 августа за последние 5 лет - Pascal - Ответ 554300

program pr14;
uses crt;
const  WG=40;
type tmasb=array[1..WG] of byte;
tmasi=array[1..WG] of integer;
 
type data=record;
god:integer;
day:tmasb;
t:tmasi;
os:tmasb;
 end;
 
 
var  ff:file of data; kol_d,kl:byte; zap:data; god:integer; name_file:string;
  
  
procedure pr_create_f(ff:file of data; god:integer; kol_d:byte; zap:data);
var  i:byte;
begin
rewrite(ff);
writeln('Введи кол-во дней');
readln(kol_d);   writeln('Введи номер 1 года');
readln(zap.god);
while zap.god<>13 do
with zap do begin
for i:=1 to kol_d do begin
writeln('Введи температуру ',i,' дня');
read(t[i]);
writeln('Введи кол-во осадков ',i,' дня');
read(os[i]); end;
write(ff,zap);
writeln('Введи номер след. года (если введены все данные-введите 13)');
readln(god);
end;
close(ff); end;
 
 
procedure pr_out_f(ff:file of data; god:integer; kol_d:byte; zap:data);
var i:byte;
begin
reset(ff);
writeln('Год':6);
while not eof(ff) do
with zap do begin
read(ff,zap);
write(god:6,',');
for i:=1 to kol_d do
write(i,'День - T = ',t[i],' осадки - ',os[i]);
end; close(ff); end;
 
 
 
begin
writeln('Введи имя файла');
readln(name_file);
assign(ff,name_file);
 
while true do begin
writeln('1-создание файла'); writeln('2-распечатка файла');
writeln('3-работа с файлом'); writeln('4-корректировка');
writeln('5-завершить работу'); readln(kl);
case kl of
1:pr_create_f(ff,god,kol_d,zap);
2:pr_out_f(ff,god,kol_d,zap);
5:exit;
end; end; end.