{$I smally.pas} {This is how we call an include file}
{finds the smalles t number on a file of many lines}
var tiny, small : integer;
begin
tiny := maxint;
while not eof do begin
smallest( small ); {This procedure is on the include file}
if small < tiny then
tiny := small
end;
writeln(' hey dude. The smallest is ', tiny)
end.