Создание меню в Паскале ABC

[SunHab]

Добрый день! Помогите отредактировать программу, так что бы было меню.
каждый пункт меню - вызов одной из задачи программы. После работы очередной задачи должен быть возврат в меню. Буду очень благодарна за помощь!
Вот сама программа:

program matritsa;
const n=8;
type

matr= array[1..n,1..n] of integer;

var
a: matr;
i, j, k,l,ko,sm : integer;

Procedure findk ( a:matr; var k:integer );
var i, j: integer;
begin
for i:=1 to n do begin
k:=i;
for j:=1 to n do
if A[i,j] <> A [j,i] then begin
k:=0;
break;
end;
if k>0 then break;
end;
end;

begin
for i:=1 to n do
for j:=1 to n do begin
write('a[',i,',',j,']=');
read(a[i,j])
end;
findk(a, k);
writeln(k);
writeln;
for i:=1 to n do begin
for j:=1 to n do
write(a[i,j]:3);
writeln;
end;
writeln('Совпадающие строки и столбцы;');
l:=0;{считаем что совпадающих строк и столбцов нет}
for k:=1 to n do
begin
i:=0;{считаем что в данных строке и столбце совпадений нет }
for j:=1 to n do
if a[k,j]=a[j,k] then i:=i+1;{если есть, считаем}
if i=n then{если все совпали}
begin
writeln('Строка и столбец № ',k);{выводим на экран}
l:=1;{фиксируем что есть такие}
end;
end;
if l=0 then writeln('Таких строк и столбцов нет!');
writeln;
for i:=1 to n do
begin
ko:=0;{считаем что отрицательных в строке нет}
for j:=1 to n do
if a[i,j]<0 then {если нашли}
begin
ko:=1;{фиксируем}
break;{больше не ищем}
end;
if ko=1 then{если есть отрицательные}
begin
sm:=0;{сумма=0}
for k:=1 to n do
sm:=sm+a[i,k];{считаем сумму в строке}
writeln('Сумма в строке ',i,'=',sm);
end;
end;
readln
end.

[ZX Spectrum-128]

http://programmersforum.ru/showthread.php?t=235053

[SunHab]

Сообщение от ZX Spectrum-128

http://programmersforum.ru/showthread.php?t=235053

Не очень понятно, если честно((

[Vanta11a]

Что именно непонятно? По пунктам, пожалуйста.

p.s. Втискивать меню в вашу программу за Вас никто скорее всего не станет.

[SunHab]

Сообщение от Vanta11a

Что именно непонятно? По пунктам, пожалуйста.

p.s. Втискивать меню в вашу программу за Вас никто скорее всего не станет.

Как именно разделить мою программу, на подпункты меню.

[Vanta11a]

А почему Вам должны ответить, как нужно разделить Вашу программу? Вы же её писали, Вы должны знать, как она работает, что делает и как её можно разбить на части.

Или её писали не Вы, а сейчас надеетесь выехать на халяву?

[SunHab]

Сообщение от Vanta11a

А почему Вам должны ответить, как нужно разделить Вашу программу? Вы же её писали, Вы должны знать, как она работает, что делает и как её можно разбить на части.

Или её писали не Вы, а сейчас надеетесь выехать на халяву?

Писала её сама, а далось мне это не легко и не быстро, так как я не являюсь гуру программирования и Pascal в целом. И весьма непонятна, Ваша реакция.

[ZX Spectrum-128]

По ссылке как раз и представлен "скелет" меню. Вам нужно разбить вашу программу на логические блоки и распределить их между процедурами punkt1, punkt2 и т.д.

Как вам уже все написали, оказывается.

[Serge_Bliznykov]

Сообщение от SunHab

Как именно разделить мою программу, на подпункты меню.

Погодите, но ведь Вы же должны сказать, какие пункты меню должны быть!

Например,
пункт "1. Ввести матрицу"
пункт "2. Вывести матрицу на экран"
пункт "3. Найти совпадающие строки и столбцы"

и т.д. и т.п.

или кто должен определить, какие пункты меню Вам нужны?!

[SunHab]

Сообщение от Serge_Bliznykov

Погодите, но ведь Вы же должны сказать, какие пункты меню должны быть!

Например,
пункт "1. Ввести матрицу"
пункт "2. Вывести матрицу на экран"
пункт "3. Найти совпадающие строки и столбцы"

и т.д. и т.п.

или кто должен определить, какие пункты меню Вам нужны?!

Все, поняла! Спасибо большое, все получилось