Информатика Практика / 30

Program praktika30;
Uses CRT;
Var f: File Of Integer;
k, max, min, n_max, n_min, c: Integer;
Begin
Assign(f, 'D:\User\f.dat');
ReWrite(f);
Repeat
Write('Введите число: ');
ReadLn(k);
If (k=0)
Then Break
Else Write(f, k);
Until(k=0);
Reset(f);
WriteLn;
WriteLn('Числа, записанные в файл:');
WriteLn;
While (Not(EOF(f))) Do
Begin
Read(f, k);
Write(k:5);
End;
Reset(f);
While (Not(EOF(f))) Do
Begin
Read(f, k);
max:=k;
min:=k;
End;
Reset(f);
Read(f, k);
min:=k;
max:=k;
n_max:=1;
n_min:=1;
Reset(f);
While (Not(EOF(f))) Do
Begin
Read(f, k);
If (k>max)
Then
Begin
max:=k;
n_max:=FilePos(f);
End;
If (k<min)
Then
Begin
min:=k;
n_min:=FilePos(f);
End;
End;
WriteLn;
WriteLn;
WriteLn('максимальное число = ', max,' позиция = ', n_max);
WriteLn;
WriteLn('минимальное число = ', min,' позиция = ', n_min);
WriteLn;
c:=n_max;
n_max:=n_min;
n_min:=c;
Reset(f);
WriteLn;
WriteLn('Выходной файл:');
WriteLn;
While (Not(EOF(f))) Do
Begin
Read(f, k);
If (FilePos(f)=n_max)
Then k:=max;
If (FilePos(f)=n_min)
Then k:=min;
Write(k:5);
End;
Close(f);
ReadLn;
End.