Помогите исправить код

[exbv1]

Написал код и причём рабочий. Когда показывал его преподу, то он докопался до процедур и сказал что меня они не волнуют. Ему нужна функция. Сделал через функцию и всё равно докопалась. В общем нужно переделать код так что бы была одна функция. Принимала число и переворачивала, код так же работал через подпрограмму.

[type_Oleg]

Вы просто не поняли саму суть работы с подпрограммами ( процедурами или функциями). То есть не поняли, а зачем они вообще нужны.
Ваш код может быть и работает, но такие процедуры, как ваша Proc() нафиг никому не нужна. Потому что она нигде, кроме именно вашей программы работать не будет.
Тут сам бог велел образование перевертыша сделать в виде функции, типа

function funA(B:Integer):Integer;

PS Выполненное задание преподу вы тоже в виде фото с монитора представляете?

[exbv1]

Для отчёта да, а так нет. Можете написать программу с нуля? Об оплате договоримся. Просто я уже не знаю что делать. Как бы не менял. То ли препод не взлюбил и валит или сам понять не могу.

[min@y™]

автор, ты блондинка с необитаемого острова?
нажми сюда и почитай. очень полезная информация!

[Sibedir]

И сюда тоже
----------------------------------------------

Ему нужна функция. Сделал через функцию и всё равно докопалась.

Где функция? Не вижу. Одни процедуры

function Perevertish (A: Integer): Integer;
var
  k: Integer;
  //...
begin
  // Здесь часть кода из proc1
  Result := k;
end;

...
...
if (a[i,j]>0) and (a[i,j] mod 2 = 0) then
  a[i,j] := Perevertish (a[i,j]);
...
...

[exbv1]

Ни ха какие вы умные. А я ка бут-то не знал. Был бы инет в кабинете и USB порты не заблочены, то скинул бы так. А так только с телефона есть возможность.

[exbv1]

Sibedir, спасибо. Подсказал

[min@y™]

Ни ха какие вы умные. А я ка бут-то не знал. Был бы инет в кабинете и USB порты не заблочены, то скинул бы так. А так только с телефона есть возможность.

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

[Sibedir]

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

Ни ха какие вы умные. А я ка бут-то не знал. Был бы инет в кабинете и USB порты не заблочены, то скинул бы так. А так только с телефона есть возможность.

С лаборантами дружить нужно, студент.

А пальцы тебе тоже домой таскать не дают? Так у препода до следующей лабы и лежат.
exbv1, вот после такой отмазки точно желание помогать отпало. Считай повезло.