Напишите программу нахождения суммы всех чисел, имеющих нечетный порядковый номер и произведения всех чисел, имеющих четный порядковый номер.

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls; StdCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Label5: TLabel;
    Button1: TButton;
    Button2: TButton;
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  MyTextFile: TextFile; //файловая переменная
  n:integer;            //кол-о записей в файле
  mas_number: array[1..50] of Integer; //массив чисел
implementation
 
{$R *.dfm}
//процедура создания формы
procedure TForm1.FormCreate(sender: TObject);
var
i:integer;  //счетчик для цикла
k:integer;  //переменная для чтения числа из стройки файла
s:string;   //строка символов
begin
AssignFile(MyTextFile, 'txt.txt'); //связываем файловую переменную с файлом
reset(MyTextFile);                 //открываем файл для чтения
n:=0; //количеству записей присвои нулевое значение
while not eof (MyTextFile) do //пока чтение файла не окончено
  begin
    inc(n);              //увеличить счетчит записей на 1
    readln(MyTextFile,k); //считать целое число
    mas_number[n]:=k;     //запомнить целое число в массив
    end;
CloseFile(MyTextFile); //закрываем файл
s:='';
for i:=1 to n do //формируем строку для вывода в цикле
  s:=s+IntToStr(mas_number[i])+'   ';
  label4.caption:=s; //вывести сформированную на форму в компонент label4
  end;
  //процедуры
 
end.

var
t:tstringlist;
i:integer;
DivPer, AddPer: integer;
begin
DivPer:=1;
AddPer:=0;
t:=tstringlist.Create;
t.LoadFromFile('путь_к_файлу.txt');
for I := 0 to t.Count-1 do 
begin
if t[i] mod 2 = 0 then DivPer:=DivPer*t[i] else
AddPer:=AddPer+*t[i]; 
end;
 Label1.Caption:=IntToStr('Сумма равна'+AddPer);
Label2.Caption:=IntToStr('Произведение равно'+DivPer);
end;

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
Var
  f: Text;
  s: String;
  k,sum: Integer;
  p: Cardinal;
BEGIN
Writeln('Введите имя файла без расширения: ');
Readln(s);
AssignFile(f,s+'.txt');
{$I-}
Reset(f);
{$I+}
If IOResult=0 Then
begin
  k:=0;
  sum:=0;
  p:=1;
  While not Eof(f) do
  begin
    Inc(k);
    Readln(f,s);
    If Odd(k) Then
    Inc(sum,StrToInt(s))
    Else
    p:=p*StrToInt(s);
  end;
  Writeln('Сумма = ',sum);
  Writeln('Произведение = ',p);
  CloseFile(f);
end
Else
Writeln('Файл не найден');
Readln
END.