процедуры и файлы Опции

[Елена]

Задание: создать файл f целых чисел (значения вводятся с клавиатуры). Проанализировав в программе созданный файл, создать файл, который содержит произведение первого и k-го числа, второго и (k-1)-го числа, третьего и (k-2)-го числа и т.д. Вывести на экран содержимое файлов. Предвидеть в программе вывод сообщения, если элементов файле нет. Я вообще в том направлении делать то начала, потому что мало работала с Паскалем…… Запуталась!


Program Lab;
uses crt;
var
x:file of integer;
y:file of integer;
i,c:integer;
name:string;
t:text;
begin
clrscr;
writeln('Vvedit imya failu: ');
readln(name);
assign(x,name);
assign(y,'l:\f2.txt');
{$I-}
reset(x);
rewrite(y);
rewrite(x);
{$I+}
if IOResult<>0 then
begin
writeln('Fail ne suw');
readln;
halt; close(x);
end
else
begin
writeln('Fail suw');
read;
end;
assign(x,name);
rewrite(x);
writeln('Vvedit chisla: ');
read©;
reset(x);
close(x); close(y);
readln;
end.

[Ozzя]

файл, который содержит произведение первого и k-го числа, второго и (k-1)-го числа, третьего и (k-2)-го числа и

i:=0;
While not eof(f) do
  begin
     seek(i);
     read(f,m);
     seek(k-1); {к- количество чисел, записанных в файл f}
     read(f,m1); 
     res:=m*m1;
     write(f1,res);
  end;