ошибка в модуле (отсутствует определение процедуры). паскаль.

[semenova]

Паскаль упорно выдает ошибку. Помогите пожалуйста, уже понятия не имею в чем дело.

unit mod_exe1;

interface

type mas=array[1..10] of string[25];
     st=string[25];

    
procedure findmin(a:mas ; var r:st);//отсутствует определение процедуры findmin//
procedure findmax(a:mas ; var r:st);


IMPLEMENTATION

begin
procedure findmin;
var s:st;
    i:byte;
    a:mas;
    r:st;
begin
     s:=copy(a[1],1,20); r:=a[1];
     for i:=2 to 10 do
         begin
            if s>copy(a[i],1,20) then
            begin
            s:=copy(a[i],1,20); r:=a[i];
            end;
         end;
end;

procedure findmax;
var s:st;
i:byte;
a:mas;
r:st;
begin
     s:=copy(a[1],22,4); r:=a[1];
     for i:=2 to 10 do
         begin
            if s<copy(a[i],22,4) then
            begin
            s:=copy(a[i],22,4); r:=a[i];
            end;
         end;
end;

end.

[Son Of Pain]

Убери begin после слова implementation.

[semenova]

нет, это не от этого к сожалению

[Son Of Pain]

Ну и дублирующие объявления a и r в тех двух функциях тоже убери.

[semenova]

тогда начинает ругаться на неизвестные идентификаторы в самих процедурах)

[Son Of Pain]

omg ) какая версия компилятора?

[semenova]

pascal abc)

[Son Of Pain]

Такого у меня нет. Borland pascal компилирует без ошибок, может этот abc не понимает сокращенных объявлений функций? Попробуй их скопировать из интерфейса в имплементейшн полностью.