Текстовые файлы

[Casillas1]

Сообщение от revizor

Этого не может быть. Turbo Pascal 7.0 компилирует

program NameProgram;
var
	fIn, fOut: text;
	number: real;
	total: integer;
	sum: real;
begin
	Assign(fIn, 'input.txt');
	Assign(fOut, 'output.txt');
	sum:=0.0;
	total:=0;
	
	Reset(fIn);
	while EOF(fIn) <> true do
	begin
		Read(fIn, number);
		sum:=sum+number;
		total:=total+1;
	end;
	Close(fIn);
	
	Reset(fIn);

	RewRite(fOut);
	while EOF(fIn) <> true do
	begin
		Read(fIn, number);
		if number>(sum/total) then
			Write(fOut, number);
	end;
	
	Close(fIn);
	Close(fOut);
end.

всеравно нет(