[[The]Unknown_Master]

Решаю задачу по программированию и вылезает такая вот ошибка.
Собственно код:

Код:

begin
 assign(input,'lookandsay.in');
 readln(n);
 setlength(str,n);
 for i:=1 to n do
  begin
  readln(st);
  m:=length(st);
  for y:=1 to m-1 do
   begin
    if st[y]=st[y+1] then k:= k+1
       else
        begin
         str[i]:=str[i]+inttostr(k)+st[y];
         k:=1;
        end;//else
   end;// for y
   end;//for i
 assign(output,'lookandsay.out');
  for i:=1 to n do writeln(str[i]);
end.

Вылезает ошибка+ в выходной файл записывается коряво.
Подскажите, где ошибка.
Заранее спасибо.

[Drozh]

Во первых укажи типы переменных, а во второх кто файлы открывать/закрывать будет?

[[The]Unknown_Master]

Код:

var i,y,n,k,m:integer;
     st:string;
     str: array of string;

Если закрыть - ничего не меняется.

[Act]

файл на запись/дозапись открой.

[[The]Unknown_Master]

Всмысле reset,rewrite? Пробовал- не помогает.

[Alexo]

Ошибка означает доступ к обьекту которого не существует (обычно). Делаем точну остановки на начале функции и далее трасировкой нах=одим ошибку.