описать Логицескую функцию поиск(Т,К,Н), используя тип данных Record Опции

[-Лена-]

const n=300;
type запись=record ключ:integer;
тело:array [1..99] of 'a'..'z'
end;
таблица=array [1..n] of запись;
Считая, что в таблице записей имеют различные ключи, описать Логицескую функцию поиск(Т,К,Н), определющую, есть ли в таблице Т (все записи которой уже упорядочены по возрастанию их ключей) запись с ключем К, и, если есть, присваивающую ее номер параметру Н.