Надо найти Объем файла и Рассчитанный объем файла в байтах

Type mas=array[1..93] of real;
var i,w:byte;season:mas;t:real;

function temp(ses:mas;d:byte):real;
var i:byte;s:real;
begin
s:=0;
for i:=1 to d do s:=s+ses[i];
temp:=s;
end;

begin

repeat
writeln('Год високосный?1-да 0-нет');
read(w);
if (w<>1) and (w<>0) then w:=2;
until w<>2;

writeln('Введите зимние температуры за каждый день:');
for i:=1 to 90+w do readln(season[i]);
t:=temp(season,90+w);
writeln('Среднее арифметическое зимних температур: ',t/(90+w):5:3);

writeln('Введите весенние температуры за каждый день:');
for i:=1 to 92 do readln(season[i]);
t:=temp(season,92);
writeln('Среднее арифметическое весенних температур: ',t/92:5:3);

writeln('Введите летние температуры за каждый день:');
for i:=1 to 92 do readln(season[i]);
t:=temp(season,92);
writeln('Среднее арифметическое летних температур: ',t/92:5:3);

writeln('Введите осенние температуры за каждый день:');
for i:=1 to 92 do readln(season[i]);
t:=temp(season,91);
writeln('Среднее арифметическое осенних температур:',t/91:5:3);
end.

c = 15   c = 2.00     c = 25              c = 9

c = 3    c = 1            c = 100             100

'qm'     c = ''   c = school2      error

Объяснение:

+ сложение(если строку str складывают с другой они просто скрепляются

// деление с выделением целой части

/ обычное деление чисел (происходит в формате float) даже если ответ целое число мы показывает десятые и сотые числа

% деление с выделением остатка

* умножение (если строка str умножается на целое число, то эта строка пишется несколько раз БЕЗ ПРОБЕЛА

** возведение в степень

max функция которая ищет максимум

строку на строку перемножать нельзя программа ложиться и выдаёт ошибку