А как составить программу ддя того чтобы с помощью div,mod+цикл ввести многозначное число ? (В паскале)

Как с мощью div,mod+ цикл ввести семизначное число в паскале.

C использование рандома нужно написать программку , чтобы выводился одномерный массив из эн целых чисел в диапазоне от нуля до бэ. Пожалуйста.

ваще не получилось

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

program Project3;
{$APPTYPE CONSOLE}
{Дан двумерный целочисленный массив размера M ? N и целые числа k и р. Написать
функцию, которая вычисляет номер первого столбца, содержащего все элементы,
значения которых принадлежат диапазону [k, p].}
{$R *.res}
uses
System.SysUtils;
const N=4; M=5;
type ARR=array[1..N,1..M] of integer;
var a:ARR;
k,p,i,j: integer;
procedure enter (var c:integer);
begin
randomize;
c:=random((201)-100); //рандомный выбор элементов
writeln(c);//вывод матрицы
end;
function comp(b:ARR; h,e:integer):integer;
var j,i,l,j0:integer;
begin
for j := 1 to N do //столбцы
begin
l:=0;
j0:=0;
for i := 1 to M do//строки
begin
if b[i,j]>=h then//если элемент положительный - считаем
if b[i,j]<=e then l:=l+1;
if l=M then j0:=j; //если все элементы столбца отрицательны - цыкл останавливается
end;
if j0=j then comp:=j0;
end;
end;
begin
for j:=1 to N do//столбцы
begin
for i:=1 to M do //строки
begin
enter(a[i,j]);
end;
writeln;
end;
writeln('Enter the lower limit of the range');
readln(k);
writeln('Enter the upper limit of the range');
readln(p);
if k>=p then
writeln('The lower limit can not be equal to or greater than the upper boundary');
if k<p then
writeln(comp(a,k,p));
readln;
end.

если программа не сохранена, то пишет, что не сумел, а если сохранена, то начинает работать, потом высвечивается брейк, континью, хелп. нажимаю на брейк - отправляет в систем, нажимаю континью- отправляет в CPU.
в сообщениях пишет:
[dcc32 Warning] Project3.dpr(39): W1035 Return value of function 'comp' might be undefined

Как создать интерфейс для суммы двух чисел с помощью button??

А подскажите, как сгенерировать вещественные числа в интервале от 1 до 1,3 с количеством знаков после запятой = 2

Не кто не проверял что ли?
Не работает же.
i := 0;
while i < n do
begin
i := i + 1;
m[i] := random(1, 10);
for k := 1 to i - 1 do - вот в этом месте на первой итерации всегда k=1, а i=0

"Итак встречайте самый популярный и самый знаменитый хостинг в России..." Шпок! (Звук лопнувшего шарика от чрезмерного надувания).
Лет 10 с хостинг-компаниями работаю, а о таком слышу впервые.

А я этот использую: https://firstvds.ru/
Уже года 4 или 5. Очень навится. Виртуальный выделенный сервер — то что нужно. И цена вроде приемлемая (может и не очень дешево, но и не очень дорого). Техподдержка работает исправно. Бывают проблемы, но решаются довольно быстро. На самом деле я другими хостингами не пользовался так плотно как этим, но могу сказать что пока уходить не планирую.

Спасибо за ифну