Работа с файлами

[as1212]

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


Но у меня что-то не то...подскажите пожалуйста. Заранее спасибо.

PROGRAM lab12;
USES CRT;
VAR F:FILE OF INTEGER;
N,S,K,min,i:INTEGER; C:CHAR; X: array[1..5] of integer;
BEGIN CLRSCR;
min:=-10000;
ASSIGN(F,'D:\FA.txt');
REWRITE(F);
WRITELN('enter celie chisla');
for i:=1 to 5 do
BEGIN
READ(X[i]);
N:=abc(X[i]); WRITE(F,N);
END;
RESET(F); CLRSCR;
WRITELN('soderganie faila:');
WHILE NOT EOF(F) DO
Begin
READ(F,X[i]); WRITE(X[i]:4);
for i:=1 to 5 do
IF odd(i) THEN
Begin
IF X[i]<min THEN
x[i]:=min; END; END;

CLOSE(F); WRITELN;
WRITELN(min:5);
C:=READKEY
END.

[Leshii]

PROGRAM lab12;
USES CRT;
VAR F:FILE OF INTEGER;
N,S,K,min,i:INTEGER; C:CHAR; X: array[1..5] of integer;
BEGIN
CLRSCR;

ASSIGN(F,'D:\FA.txt');
REWRITE(F);
WRITELN('enter celie chisla');
for i:=1 to 5 do
BEGIN
READ(X[i]);
N:=abs(X[i]); WRITE(F,N);
END;
RESET(F);
WRITELN('soderganie faila:');
WHILE NOT EOF(F) DO
for i:=1 to 5 do
Begin
READ(F,X[i]); WRITE(X[i]:4);
end;
writeln;
min:=x[1];
for i:=1 to 5 do
if i mod 2<>0 then
IF x[i]<min THEN min:=x[i];
CLOSE(F);
WRITELN;
WRITELN(min:2);
READKEY;
end.

Вроде так.