Пожалуйста, помогите с курсовой!!!)))))

[Va-Len-Tin-Ka]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    RadioGroup1: TRadioGroup;
    Edit1: TEdit;
    Edit2: TEdit;
    Button2: TButton;
    Button3: TButton;
    Memo1: TMemo;
    Button4: TButton;
    Memo2: TMemo;
    Button5: TButton;
    Edit3: TEdit;
    Edit4: TEdit;
    procedure Button2Click(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);

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

var
  Form1: TForm1;
   p, l, i, n, k, t: integer;
   s: string;
implementation

{$R *.dfm}

 type Tname = record
 nazvan: string[30];
 vsegol, vsegopr: integer;
 provedl, provedpr: integer;
 ostavl, ostavpr: integer;

end;


procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
 p:=0;
 l:=0;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 p:=p+strtoint(Edit1.Text);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
 l:=l+strtoint(Edit2.Text);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
Memo1.Lines.Add(inttostr(p)+'ïðàêòèêè; '+inttostr(l)+'ëåêöèè ïî '+radiogroup1.Items.Strings[radiogroup1.ItemIndex])
end;
  procedure TForm1.Button5Click(Sender: TObject);
begin
   k:=strtoint(edit3.Text)-p;
  t:=strtoint(edit4.text)-l;
  Memo2.Lines.Add('ostalos '+ inttostr(k) +'praktiki; '+ inttostr(t) +'lekcii po '+radiogroup1.Items.Strings[radiogroup1.ItemIndex]);
end;


procedure TForm1.Button1Click(Sender: TObject);
var f: file of Tname;
q: Tname;
begin
    begin
  if fileexists('c:\1\1.txt') then
  assignfile(f, 'c:\1\1.txt');
  rewrite(f);
  write(f,q);
  write(f,q);
  q.nazvan:=radiogroup1.Items.Strings[radiogroup1.ItemIndex];
  q.vsegol:=strtoint(Edit4.Text);
  q.vsegopr:=strtoint(Edit3.Text);
  q.provedl:=l;
  q.provedpr:=p;
  q.ostavl:=t;
  q.ostavpr:=k;
  closefile(f);
 end;
  begin
   assignfile(f, 'c:\1\1.txt);
   while not EOF(f) do
   begin
   reset(f);
   readln(f,q);
   if  q.nazvan = radiogroup1.Items.Strings[radiogroup1.ItemIndex] then
   q.provedl:=q.provedl+l;
       q.provedpr:=q.provedpr+p;
       q.ostavl:=q.vsegol-q.provedl;
           q.ostavpr:=q.vsegopr-q.provedpr;
    end;
   end;

end.

вот такая программа.
Выдает ошибку в 101 строчке, не знаю что и делать((

Кому интересно-вот программа полностью: http://dump.ru/file/2820036
Буду очень благодарна за любую помощь!))

[uberchel]

Ты бы, хоть показал где точно, а то не охота весь код проверять!
Почерки хоть!

[Пепел Феникса]

procedure TForm1.Button1Click(Sender: TObject);
var f: file of Tname;
q: Tname;
begin
    begin
  if fileexists('c:\1\1.txt') then
  assignfile(f, 'c:\1\1.txt');
  rewrite(f);
  write(f,q);
  write(f,q);
  q.nazvan:=radiogroup1.Items.Strings[radiogroup1.ItemIndex];
  q.vsegol:=strtoint(Edit4.Text);
  q.vsegopr:=strtoint(Edit3.Text);
  q.provedl:=l;
  q.provedpr:=p;
  q.ostavl:=t;
  q.ostavpr:=k;
  closefile(f);
 end;
  begin
   assignfile(f, 'c:\1\1.txt);
   reset(f);
   while not EOF(f) do
   begin
   read(f,q);
   if  q.nazvan = radiogroup1.Items.Strings[radiogroup1.ItemIndex] then
   q.provedl:=q.provedl+l;
       q.provedpr:=q.provedpr+p;
       q.ostavl:=q.vsegol-q.provedl;
           q.ostavpr:=q.vsegopr-q.provedpr;
    end;
   end;
 closefile(f);
end.

то что я исправил выделил красным:
1)нужно сначало установить файловый указатель(reset - устанавливает его на начало файла), а потом уже читать его до конца
2)какой может быть readln в типизированном файле?
3)а закрывать файл в конце кто будет?

[Va-Len-Tin-Ka]

Спасбо большое!
Все исправила, но все равно проблемы с assignfile(f, 'c:\1\1.txt);