merhabalar arkadaşlar beni bu dertten kurtaracak
Delphi 5 Konusunda Yardım Edecek Arkadaşlara ihtiyacım var. 2 dk kanızı ayırısanız ve bana yardım ederseniz cok sevinirim .

Mesela yazdığım bir program uygulaması . Bu uygulama prosedurlu hali
bunun prosedursuz hali lazım . yardımcı olurmusunuz .

Kod:
program pr_ayt; uses SysUtils,windows; const nmax=10; type str = array[1..nmax] of integer; var i,j : byte; a : array[1..nmax] of str; c : str; m,n : byte; k_max,l_max,k_min,l_min : byte; procedure GotoXY(X, Y : Word); var Coord: _COORD; begin Coord.X := X; Coord.Y := Y; SetConsoleCursorPosition(GetStdHandle(STD_OUTPUT_H ANDLE),Coord); end; procedure vvod; begin writeln('Vvedite razmer massiva:'); write('shislo strok m=');readln(m); write('shislo stolbtcov n=');readln(n); writeln('vvedite massiv'); for i:=1 to m do for j:=1 to n do begin readln(a[i,j]); if ja[k_max,l_max] then begin k_max:=i; l_max:=j; end; if a[i,j]