// Записать в файл N действительных чисел.
// Найти разность первой и последней компонент файла.
var
i, N, first, last: integer;
filename: file of integer;
begin
write('Введите количество чисел: ');
readln(N);
assign(filename, 'out.dat');
rewrite(filename);
//записать в файл элементы
randomize;
first:= random(N) + 1;
for i:= 2 to N do
last:= random(N) + 1;
// открыть на чтение прочитать 1 и последний
begin
reset (filename);
write(filename, first);
write(filename, last);
end;
write('Разность = ', abs(last - first));
readln;
end.