Developing.ru

А для записи макс. значения добавьте перед close(f2); строку write(f2,x);

Да, действительно все так и есть! бЛАГОДАРЮ.Без Вас бы и не разобрался вовсе!.
А можно ли исправить код таким образом, чтобы первая цифра в массиве в исходном файле не влияла на количество выводимых цифр в конечном файле?
Код необходимо оформить в виде процедур. Кто рискнет, тому ОГРОМНЕЙШЕЕ СПАСИБО!


P.S Насчет "добавить перед close(f2); строку write(f2,x);" я, конечно, сам протупил аж стыдно стало)))

Вот в виде процедур и с автоматическим определением количества цифр:
[syntax='Delphi']
Program Z6_15;
Var
A:array[1..15] of integer;
i,n,x:integer;
f1,f2:text;

Procedure ReadData;
begin
Assign(F1,'1.txt');
Reset(F1);
N:=0;
while not EoF(F1) do
begin
Inc(N);
Read(F1,A[N]);
end;
Close(F1);
end;


Procedure Calculate;
begin
x:=A[1];
For I:=2 to N do
if A>X then X:=A;

For I:=1 to N do
if A=0 then A:=X;
end;

Procedure WriteData;
begin
Assign(F2,'2.txt');
Rewrite(F2);
for I:=1 to N do
write(F2,A,' ');
write(F2,X);
Close(F2);
end;

Begin
ReadData;
Calculate;
WriteData;
End.

[/syntax]

ВСЕМ СПАСИБО ОГРОМНОЕ ЗА ПОМОЩЬ!