Простой алгоритм с модулями (Ошибка: отсутствует определение процедуры)

[FYBVFPFYBC]

Пока не смогла разобраться в чём дело. Pascal ABC и стандартная среда Turbo Pascal выводят разные сообщения об ошибке в разных частях модуля (во время компиляции).

unit readunit;
interface
const n=10;

type
matrix=record;{ошибка в Borland Pascal 7.0: "Ошибка 37: Предполагается END."}
nme: string[10];
prc,use: integer;
nprc: real;
end;

var
mtx: array[1..n-1]of matrix;
inpf: text;

procedure readin(var mtx: array[1..n-1]of matrix; var inpf: text);{ошибка в PascalABC: "Отсутствует определение процедуры READIN"}

implementation
procedure readin;
var a,i: integer; ch: char; str: string;
   begin
   for i:=1 to n-1 do
      begin
      {name}
      repeat
         begin
         read(inpf,ch);
         if ord(ch)=32 then break
         else mtx[i].nme:=mtx[i].nme+ch;
         end;
      until false;
      {price}
      str:='';
      repeat
         begin
         read(inpf,ch);
         if ord(ch)=32 then break
         else str:=str+ch;
         end;
      until false; val(str,mtx[i].prc,a);
      {use}
      str:='';
      repeat
         begin
         read(inpf,ch);
         if (ord(ch)=32) or (eof(inpf)) or (eoln(inpf)) then break
         else str:=str+ch;
         end;
      until false; val(str,mtx[i].use,a); readln(inpf);
      end;
   end;
end.

Вроде всё по учебнику Фаронова сделала. Может, чего-то не замечаю?

[Dalef]

После record убери ;

[miftayka]

нужно убрать точку с запятой после "record".

[SNUPY]

Душа к этому тянет =)

procedure readin(var mtx: array[1..n-1]of matrix; var inpf: text);{ошибка в PascalABC: "Отсутствует определение процедуры READIN"}

implementation
procedure readin(var mtx: array[1..n-1]of matrix; var inpf: text);
var a,i: integer; ch: char; str: string;
   begin

[FYBVFPFYBC]

Dalef, miftayka, SNUPY, спасибо вам!