Помогите исправить Ошибку

[Pavelhr]

Добрый вечер, помогите пожалуйста найти и исправить ошибку:
в процедуре вывода файла (Show) ошибка на FILE OF K (что-то не нравиться)

uses crt;

const
n=10;

type
k = array[1..n] of integer;

var
isFile,ExitFile :file of k;
a :k;
i,j :integer;

{-------------------------------------Создание файла    --------------------------------------}
 procedure isFileCreate;
    begin
	{$I-}
	reset(isFile);
	{$I+}
	
	if ioresult<>0 then begin
        textcolor(4);
	writeln('File Not found! We Create...');
        textcolor(7);
    rewrite(isFile);
	repeat
	  for i:=1 to n do
	  a[i]:=random(50);
	  write(isFile,a);
	  writeln('To add still ?, Y/N');
	until Upcase (readkey)='N';
	                    end;
    end;
	
{-------------------------------------    Вывод файла    ---------------------------------------}
  procedure isShow(s :string; f :file of k);        {процедура вывода файла}
    begin
      writeln;
      writeln(s);

      reset(f);            {Проверяем наличае пути к файлу, точнее проверяем файл}
      while not eof(f) do begin
        read(f,a);		{читаем файл}
		for i:=1 to n do
        write(a[i]:4);                  {выводим данные из файла}
		writeln;
                end;
    end;
	
{------------------------------------    Сортировка    -------------------------------------------}	
   procedure isSort;
   var
   buf :integer;
     begin
      i:=1;
      reset(isFile);
      rewrite(ExitFile);
      for j:=1 to filesize(isFile) do begin
      read(isFile,a);
       while i<=n-1 do begin
        buf:=a[i];
        a[i]:=a[i+1];
        a[i+1]:=buf;
        inc(i);
        inc(i);
                       end;
	  write(ExitFile,a);
      i:=1;
                                      end;
     end;

{-----------------------------------    Головная программа   --------------------------------}
BEGIN
clrscr;
randomize;

assign (isFile,'isFile.phr');
assign (ExitFile,'ExitFile.phr');

	isFileCreate;
	isShow('Source file:',isFile);

	isSort;
	isShow('The changed file:',ExitFile);
	
close(isFile);
close(ExitFile);	
	
readkey;
END.

[Ser@Fim]

Создай свой тип для типизированного файла.

type
   k = array[1..n] of integer;
   MyFile=file of k;
//...
var
isFile,ExitFile : MyFile;
//...
 procedure isShow(s :string; f :MyFile);        {процедура вывода файла}