Работа с файлами ( Delphi)

[kop]

Здравствуйте!
Тип файла-текстовый, вещественные числа,числа меньше 0 заменить их квадратами, а остальные - оставить без изменения,+ вывести количество чисел кратных 3.
Может у кого-то есть что-то похожее? буду очень благодарен ...

[Stilet]

var s:TStringList;i,v,c:integer;
begin
 s:=TStringList.Create;
 s.LoadFromFile('файл');
 for i:=0 to s.Count-1 do begin
  v:=StrToIntDef(s[i],0);
  if (v<>0)and((v mod 3)=0) then inc(c);
  if v<0 then s[i]:=IntToStr(v*v);
 end;
 write(c);
 s.free;
 readln;
end.

Это в консольном приложении.

[kop]

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

var s:TStringList;i,v,c:integer;
begin
 s:=TStringList.Create;
 s.LoadFromFile('файл');
 for i:=0 to s.Count-1 do begin
  v:=StrToIntDef(s[i],0);
  if (v<>0)and((v mod 3)=0) then inc(c);
  if v<0 then s[i]:=IntToStr(v*v);
 end;
 write(c);
 s.free;
 readln;
end.

Это в консольном приложении.

не запускается, киньте пожалуйста архив

[Stilet]

Это ядро консольного приложения.
Создай консольное приложение, заправь в него этот код как положенно и запукай.