Stack Overflow Error возникает при вызове подпрограмм, приведите программу полностью.

Полагаю, у Вас две ошибки:
1) Одной из задач стека является обеспечение работы с подпрограммами и функциями. Для этого в стек заносится адрес возврата.
После выхода из подпрограммы/функции осуществляется извлечение и переход на сохраненный адрес;
Вы же, выполняя dec(p), нарушили адресацию в стеке. В результате вершина стека указывает куда-то в другое место...
И выход из функции приведет "в молоко"...
2) Указатель стека обязан быть кратным 2, такая его специфика. Уменьшая его на 1, Вы и получили при обращении к стеку (pickup:=p^) указанное сообщение . Это в добавок к первой ошибке...

Какая была задача-то?

Покажите весь код, без него трудно, что либо сказать.


Обычно это занижен размер выделеного стека при компиляции(по умолчанию 16к), решается увеличением его до нужных размеров, максимум 64к.
В коде:
{$M размер стека , размер кучи}
или через меню:
Option | Compiler | Memory Size

В любом случае это все только догадки. Нужен полный код, что и как определено.

вот полный код программы:

[code h=200]program diskr_math5;

uses crt;

const max=20;
p:^byte = nil; {указатель на вершину стека}

var n:byte;
A:array[1..max,1..max]of byte; {матрица смежности}
m:array[1..max]of byte; {массив пометок}
c:char;


{вывод матрицы смежности}
procedure printm;
var i,j:byte;
s:char;

begin
writeln('Матрица смежности');
writeln;
write(' ');
for i:=1 to n do begin
s:=char(i+96);
write(s);
end;
writeln;
writeln;
for i:=1 to n do begin
s:=char(i+96);
write(s,' ');
for j:=1 to n do begin
if A[i,j]<>1 then A[i,j]:=0;
write(A[i,j])
end;
writeln
end
end;

{контроль ошибок ввода смежных вершин}
function control(ch1,ch2:char):boolean;
var chn:char;

begin
chn:=char(n+96);
control:=true;
if (ch1<'a')or(ch1>chn)or(ch1=ch2) then begin
control:=false;
write(' Ошибка ввода!');
delay(1000);
delline;
gotoxy(1,wherey)
end
end;

{добавление ребер графа}
procedure addedge;
var i,j:byte;
s1,s2:char;

begin
repeat
clrscr;
writeln('Добавление ребер неориентированного графа');
writeln;
printm;
writeln;
if n=1 then break;
repeat
write('Укажите вершину ');
s1:=readkey;
write(s1);
until control(s1,'0');
writeln;
repeat
write('Укажите смежную вершину ');
s2:=readkey;
write(s2);
until control(s2,s1);
writeln;
i:=byte(s1)-96;
j:=byte(s2)-96;
A[i,j]:=1;
A[j,i]:=1;
writeln('1 - Добавить следующее ребро');
writeln('Любая клавиша - Меню');
until readkey<>'1'
end;

{удаление ребер графа}
procedure delledge;
var i,j:byte;
s1,s2:char;

begin
repeat
clrscr;
writeln('Удаление ребер неориентированного графа');
writeln;
printm;
writeln;
if n=1 then break;
repeat
write('Укажите вершину ');
s1:=readkey;
write(s1);
until control(s1,'0');
writeln;
repeat
write('Укажите смежную вершину ');
s2:=readkey;
write(s2);
until control(s2,s1);
writeln;
i:=byte(s1)-96;
j:=byte(s2)-96;
A[i,j]:=0;
A[j,i]:=0;
writeln('1 - Удалить следующее ребро');
writeln('Любая клавиша - Меню');
until readkey<>'1'
end;

{проверяет наличие вершины в массиве меток, если ее нет, то помечает}
function marker(v:byte):boolean;

begin
if m[v]=1 then marker:=true
else begin
marker:=false;
m[v]:=1
end
end;

{добавление вершины в стек}
procedure add(v:byte);

begin
inc(p);{увеличиваем адрес в указателе на 1 байт}
p^:=v {записываем вершину по этому адресу}
end;

{извлечение вершины из стека}
function pickup:byte;

begin
pickup:=p^;{присваиваем функции значение по адресу указателя вершины стека}
if pickup>0 then {если не достигли дна стека}
dec(p) {уменьшаем адрес на 1 байт}
end;

{обход компоненты связности графа}
procedure bypass(v:byte);
var i,j:byte;
s:char;

begin
new(p);
p^:=0; {устанавливаем указатель на 0}
add(v);{добавляем вершину в очередь}
marker(v);{отмечаем}
repeat
i:=pickup; {извлекаем вершину из очереди}
if i=0 then break; {если достигли дна стека, выходим из цикла}
s:=char(i+ 96);
write(s,' ');{печатаем ее}
for j:=1 to n do {проверяем строку этой вершины в матрице смежности}
if A[i,j]=1 then {если элемент в строке равен 1}
if marker(j)=false then
{проверяем вершину, соответствую этому cтолбцу на наличие в матрице меток,
если он отсутствует, то функция его автоматически добавляет}
add(j){добавляем его в очередь}
until false;
dispose(p)
end;

{поиск компонент связности графа}
procedure search;
var i,j:byte;

begin
for i:=1 to n do {заполнение массива меток нулями}
m[i]:=0;
clrscr;
printm;
writeln;
writeln('Компоненты связности неориентированного графа');
writeln;
j:=1;
for i:=1 to n do {пока в массиве меток есть неотмеченные вершины}
if m[i]=0 then begin
if wherey>24 then begin
write('Для продолжения нажмите любую клавишу');
readkey;
clrscr;
end;
write(j,': { ');
bypass(i); {выполняем обход начиная с этой вершины}
writeln('}');
inc(j)
end;
writeln;
writeln('Поиск завершен');
write('Для возвращения в меню нажмите любую клавишу ');
readkey
end;

begin
repeat
clrscr;
gotoxy(15,1);
writeln('МЕНЮ');
writeln;
writeln('1 - Задать порядок графа');
writeln('2 - Добавить ребра');
writeln('3 - Удалить ребра');
writeln('4 - Поиск компонент связности');
writeln('5 - Выход');

c:=readkey;
case c of
'1':repeat
clrscr;
writeln('Введите порядок графа от 1 до ',max);
writeln;
write('|V| = ');
readln(n)
until (n>0)and(n<max);
'2':addedge;
'3':delledge;
'4':search;
'5':break
end;
until false
end.[/code]

Ну вот, первое и заметное заметное - указатель = 4 байта, а Вы присваивайте его одному. Следовательно, все остальное теряется

function pickup:byte;

begin
pickup:=p^;{присваиваем функции значение по адресу указателя вершины стека}
if pickup>0 then {если не достигли дна стека}
dec(p) {уменьшаем адрес на 1 байт}
end;

Остальное тоже надо посмотреть

{извлечение вершины из стека}
function pickup:byte;

begin
pickup:=p^;{присваиваем функции значение по адресу указателя вершины стека}
if pickup>0 then {если не достигли дна стека}
dec(p) {уменьшаем адрес на 1 байт}
end;

Тут у Вас такая РЕКУРСИЯ "без права на посадку".

Данная функция ошибочна
Написав if pickup>0 then вызывается бесконечная рекурсия (вызов самой себя), которая неминуемо приводит к вылету системного стека.
Может, стоит написать: if p^>0 then ?

Уточню свой ответ, главным образом для въедливых коллег, п.(1) чуть по-иному выглядит: Сначала в стек записывается адрес возврата, и лишь потом функция вызывается

всем огромное спасибо, разобрался, всё работает