В общем пытаюсь создать программа Модуль юнит, и ТПУ никак создать не могу... Не понимаю что писать в Interface

Вот что есть:

unit Denis;
Interface
 Procedure Info;
 Function FindMin...
Implementation
 Uses CRT;
const max=10;
type
 Masiv=array[1..max]of integer;
 function FindMin(mas:Masiv):integer;
var
  min,i,n:integer;
begin
  min:=mas[1];
  for i:=2 to 10 do
  if mas[i]<min then
  min:=mas[i];
  Result:=min
end;
end.

И

uses
  Denis;
var
  a:Masiv;
  i,s,n:integer;
begin
  for i:=1 to max do
    a[i]:=random(300)-150;
  writeln('Min el v massive raven:',FindMin(a));
end.

interface

Function FindMin(mas:Masiv):integer;

implementation

Там (в твоем случае) должны бьть:
1. описание константы max;
2. описание типа Masiv;
3. объявление заголовка FindMax - точно так же, как оно появляется дальше.

то есть:

unit Denis;

Interface

const
  max=10;

type
  Masiv=array[1..max]of integer;

  { Procedure Info; // этой процедуры нету (пока?) }
  Function FindMin(mas:Masiv):integer;

Implementation

Uses CRT;

function FindMin(mas:Masiv):integer;
var
  min,i,n:integer;
begin
  min:=mas[1];
  for i:=2 to 10 do
    if mas[i]<min then
      min:=mas[i];
  Result:=min
end;

end.

Result скорее всего не сработает. Турбо Паскаль все-таки (было упоминание о TPU), надо будет сделать

...
FindMin := min;
...

Логично )).
У меня, по всей видимости, "ТПУ" не проассоциировалось достаточно четко с TPU .

ВСЕМ СПАСИБО!!! ВСЕ ВЫШЛО!