Решение лабораторной работы по Delphi

[Seidgin]

Доброго времени суток.
Помогите сделать лабораторную по Delphi
Суть работы заключается в том что нужно разработать программу чтоб она считывала одномерный массив из 10 элементов с текстового файла и чтоб программа могла определять произведение отрицательных элементов с выводом в окне

[Базиля]

Что не ясно? В чем проблема? Наработки?

[Hacker19_90]

не вопрос давай наработки поможем!
Если нет наработок, но нужен код, то контакты в профиле!

[Seidgin]

Я только начинаю изучать Delphi и многое мне не понятно, а лабы задают а как их делать даже не покажут (

[Базиля]

Так что не понятно? Какие вопросы?

а лабы задают а как их делать даже не покажут (

На то она и лаба, чтобы самостоятельно ее делать

[IT-man]

Assign(f,filename);
Reset(f);
p:=1;
For i:=1 to 10 do begin
Read(f,x);
s:=s+' '+inttostr(x);
if x<0 then p:=p*x;
end;
s:=s+#13+#10+' произведение ='+inttostr(p);
Showmessage(s);

[Seidgin]

Assign(f,filename);
Reset(f);
p:=1;
For i:=1 to 10 do begin
Read(f,x);
s:=s+' '+inttostr(x);
if x<0 then p:=p*x;
end;
s:=s+#13+#10+' произведение ='+inttostr(p);
Showmessage(s);

Я так понимаю это ставить на кнопку ?
Но где и как объявить переменные ?
p.s. я вообще нуб (

[Aranea tela telam]

procedure TForm1.Button1Click(Sender: TObject);{при нажатии кнопки(есле перевести на руский)}
var
//сдесь обьявляеш переменые
begin
//потом сам

Assign(f,filename);
 Reset(f);
 p:=1;
 For i:=1 to 10 do begin
 Read(f,x);
 s:=s+' '+inttostr(x);
 if x<0 then p:=p*x;
 end;
 s:=s+#13+#10+' произведение ='+inttostr(p);
 Showmessage(s);

end;

p.s. Похоже некоторые люди ночью не спят).