модуль

[kyop]

подскажите если кто сможет, толькочто сел делать модуль на паскале (не разобрался еще толком...) и при компиляцие выдает ошибку "type mismatch" сам както не вижу в чем дело...

flkolmas собираюсь использовать в основной программе для блокирования обработки массивов до их ввода...

unit mas;

interface
procedure vvodkolmas(var kolmas:integer; var flkolmas:boolean);


implementation
uses crt;

procedure vvodkolmas; {эта процедура определяет
                                    СКОЛЬКО будет массивов}
begin
     write('введите количество массивов = ');
     read(kolmas);
     flkolmas:=1;
end;

p.s. сразу извиняюсь что не в том разделе тему создал, но ничего исправить уже нек могу.

p.p.s. жаль будет если никто не ответит (модуль на треть готов а из за этой ошибки некомпилируется...)

[GetMax]

А зачем вы логическому типу число присваиваете? Попробуйте так.

unit mas;

interface
procedure vvodkolmas(var kolmas:integer; var flkolmas:boolean);


implementation
uses crt;

procedure vvodkolmas; {эта процедура определяет
                                    СКОЛЬКО будет массивов}
begin
     write('введите количество массивов = ');
     read(kolmas);
     flkolmas:=True;
end;

[kyop]

блиин, спасибо, даже не знаю как оправдать свой косяк(просто стукнуло чтото в голову что boolean это 1 или 0... а когда читал книгу "...переменная логического типа..."щелк следующая строка всю жизнь борюсь со своей невнимательностью и иногда даже побеждаю) еще раз спасибо! еслиб не это сообщение пришлось бы на зхавтра брать пару отгулов и билеты доинститута...