Файл заметок, Запись и удаление из файла Опции

[Legolas]

Всем привет.
Вот запутался в одной задаче.
А условие такое:
Написать программу, которая считывает текстовый файл с записями (заметками), записывает это в массив. Потом мы добавляем заметку или удаляем. В файле изменения тоже происходят.
Тут у меня при считывании файла и записи его в массив выводится почему-то всегда последняя строка файла, может кто-нибудь подскажет в чем дело.

Пример файла:
Сегодня нужно купить хлеб
Позвонить Наташе
27 октября зайти к Саше

Код

program oboloch;
uses crt;
var i,j: integer; a: text; Mas: array [1..200] of string;
begin clrscr; textcolor(lightgreen);
{n:=0;}
assign(a,'c:\base.txt');
reset(a);
i:=0;
while not eof(a) do
begin
i:=i+1;
readln(a,Mas[i]);
end;
close(a);
for j:=1 to i do writeln(Mas[i]);
{writeln(a);}
readln;
end.

[Atos]

for j:=1 to i do writeln(Mas[i]);  

Надо Mas[j] ;)