Напишите программу, которая находит максимальное среди чисел, записанных в файле, и выводит результат в другой файл.

используй эту программу для себя, не получится - пиши
program prog;
uses crt;
var
i,j,a,sum:integer;
f:File of Integer;
begin
assign(f,'in.txt');
rewrite(f);
for i:=1 to 3 do begin
for j:=1 to 3 do
write(f,i+j*10);
end;
close(f);
reset(f);
sum:=0;
writeln('Содержимое файла ');
for i:=1 to 3 do begin
for j:=1 to 3 do
begin
read(f,a); write(a:4);
if (i=j)and(a>0) then sum:=sum+a;
end; writeln; end;
Close(f);
assign(f,'out.txt');
rewrite(f);
write(f,sum);
close(f);
writeln;
writeln('Данные успешно записаны в файл! Ответ: ', sum);
reset(f);
read(f,a); // write(a:4);
writeln;
writeln('Данные успешно прочитаны из файла! Ответ: ', a);
Close(f);
readkey;
end.

var i, k, max: integer;
a: array [1..1000] of integer;
f1, f2: textfile;
begin
write ('введите количество чисел для первого файла k=');
readln (k);
assign (f1, 'input.txt');
rewrite (f1);
for i:=1 to k do writeln (f1, 100+random (900));
close (f1);
assign (f1, 'input.txt');
assign (f2, '1.txt');
reset (f1);
rewrite (f2);
max:=0;
while not Eof(f1) do
begin
readln (f1, k);
if k > max then max:=k;
end;
writeln (f2, max);
close (f1);
close (f2);
end.

От куда оно будет браться (число)?

Не вздумай платить «cublen» и Устименко - это бывший профайл мошенника Зотикова, который тебе ответил: -РЕШАЕТ НЕВЕРНО ВСЕМ, будет у тебя деньги выпрашивать за решения– кидает тут всех тупо на бабки! Сидит на даче безработный старпёр беззубый импотент С НЕМЫТЫМИ САЛЬНЫМИ ВОЛОСАМИ и кидает студентов!!! Моего друга обул на 320 руб–денег не вернул!!! У этого мошенника Зотикова–cublen - есть еще страницы -ИХ УЖЕ ЗАКРЫЛИ ЗА МОШЕННИЧ-ВО-он с трёх страниц кидает одновременно!!! Имя сменил только.