Вопрос по файлам в Delphi/Pascal.

[Wild_klas]

Здравствуйте, вопрос таковой: У меня есть два файла: xk,yk: File of real; мне нужно сделать с ними такое действие: S0:=Xk[i-1]*Yk[i]-Xk[i]*Yk[i-1]; (это действие по массиву)
Как такое действие сделать с файлом??

[Stilet]

while (not eof(xk))and(not eof(yk)) do begin
 read(xk,xxk);read(xk,xxk);
 S0:=Xkk*Ykk-Xkk*Ykk; 
end;

Смысл понятен?
xkk ykk - real;

[Wild_klas]

Сообщение от Stilet

while (not eof(xk))and(not eof(yk)) do begin
 read(xk,xxk);read(xk,xxk);
 S0:=Xkk*Ykk-Xkk*Ykk; 
end;

Смысл понятен?
xkk ykk - real;

Чесно говоря не очень понятен. Может так будет точнее:

while (not eof(xk))and(not eof(yk)) do begin
 read(xk,xkk);read(yk,ykk);
 S0:=Xkk*Ykk-Xkk*Ykk; 
end;

и тогда действия
Xc:=(Xkk[i-1]+Xm[i])/3 ;
Yc:=(Ym[i-1]+Ym[i])/3 ;
будут выглядеть так:

while (not eof(xk))and(not eof(yk)) do begin
 read(xk,xkk);read(yk,ykk);
 Xc:=(Xkk+Xk)/3 ;
 Yc:=(Ykk+Yk)/3;
end;

?