Считать текст из файла в массив

[Zhenya666]

Нужно написать программу "Составить ведомость, содержащую информацию о производимом предприятиями товаре за квартал. Для работы с данными использовать структуру типа ' запись ' . Поля должны содержать информацию о подразделении, количестве товара в каждом месяце и суммарном значении производимого значения за квартал. Работу с файлом организовать с помощью меню. "
Не получается прочитать правильно текст из файла.
Может каким-то специальным образом нужно вводить данные в файле или как, не пойму...
вот код программы

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ComCtrls, Grids, StdCtrls;

type
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    N2: TMenuItem;
    N3: TMenuItem;
    StringGrid1: TStringGrid;
    N6: TMenuItem;
    N7: TMenuItem;
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure Create_(Sender: TObject);
    procedure N7Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;


type
info=record {òèï çàïèñåé}
nom,pred,vid,tov,kvar: string[20];
end;

var
//PagesDlg: TPagesDlg; {Ñòðîêà åñòü â çàãîëîâêå ìîäóëÿ}
f: file of info; {Ôàéë çàïèñåé}
r: info; {Îäíà çàïèñü}
N: integer; {Êîëè÷åñòâî çàïèñåé}
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.N2Click(Sender: TObject);
{ïðîöåäóðà ÷òåíèÿ èç ôàéëà}
var i: integer;
begin
if OpenDialog1.Execute then
begin
AssignFile(F,OpenDialog1.FileName);
Reset(F);
N:=0;
while not eof(f) do
begin
read(F,r);
stringGrid1.Cells[0,N+1]:=r.nom;
stringGrid1.Cells[1,N+1]:=r.pred;
stringGrid1.Cells[2,N+1]:=r.vid;
stringGrid1.Cells[3,N+1]:=r.tov;
stringGrid1.Cells[4,N+1]:=r.kvar;
N:=N+1 {óâåëè÷åíèå ÷èñëà çàïèñåé íà 1}
end;
closeFile(F);
end;
  end;
procedure TForm1.N3Click(Sender: TObject);
var i:integer;
begin
if SaveDialog1.Execute then
begin
AssignFile(F,SaveDialog1.FileName);
Rewrite(F);
i:=1;
while stringGrid1.Cells[3,i]<>'' do
begin
r.fio:=stringGrid1.Cells[0,i];
r.gr:=stringGrid1.Cells[1,i];
r.faq:=stringGrid1.Cells[2,i];
r.predmet:=stringGrid1.Cells[3,i];
r.ocenka:=stringGrid1.Cells[4,i];
write(F,r);
i:=i+1
end;
closeFile(F)
end
end;

procedure TForm1.Create_(Sender: TObject);
begin
stringGrid1.Cells[0,0]:='Íîìåð';
stringGrid1.Cells[1,0]:='Íàçâàíèå ïðåäïðèÿòèÿ';
stringGrid1.Cells[2,0]:='Âèäû òîâàðà';
stringGrid1.Cells[3,0]:='Êîëè÷åñòâî òîâàðà çà ìåñÿö';
stringGrid1.Cells[4,0]:='Êîëè÷åñòâî òîâàðà çà êâàðòàë';
end;

procedure TForm1.N7Click(Sender: TObject);
begin
close;
end;


end.

[Katus]

while not eof(f) do
begin
read(F,r);
stringGrid1.Cells[0,N+1]:=r.nom;
stringGrid1.Cells[1,N+1]:=r.pred;
stringGrid1.Cells[2,N+1]:=r.vid;
stringGrid1.Cells[3,N+1]:=r.tov;
stringGrid1.Cells[4,N+1]:=r.kvar;
N:=N+1 {óâåëè÷åíèå ÷èñëà çàïèñåé íà 1}
end;
closeFile(F);

когда вы закрываете файл обнуляется положение... как сказать... позиция "курсора".... просто откройте файл перед циклом и закройте после

[Zhenya666]

Не могли бы Вы подсказать, каким образом осуществляется чтение текста из файла (т.е. по строкам или через пробелы, или ещё каким-то образом) и запись его в массив? И как лучше осуществить то, что вы описали выше?
Извиняйте за мою глупость, не очень прошарен в этом деле.