Разделить программу на процедуры

{Zadaem razmernost massiva: m-koli4estvo strok,n-koli4estvo elementov v stroke}
const m=4;
n=5;
var i,j,min1,min2:integer;
s:real;
a:array[1..m,0..n] of real;
f:text;
begin
{4isla iz waila input.txt perepisivaem v massive a}
assign(f,'input.txt');
reset(f);
for i:=1 to m do
for j:=1 to n do
read(f,a[i,j]);
close(f);
{Vis4itivaem srednekvadroti4eskoe otklonenie, zapisivaem evo nylevoy stolbez}
for i:=1 to m do
begin
s:=0;
for j:=1 to n do s:=s+a[i,j];
a[i,0]:=0;
for j:=1 to n do a[i,0]:=a[i,0]+sqr(a[i,j]-s);
a[i,0]:=a[i,0]/n;
end;
{Opredelaem nomera strok min1 и min2 s naimenshem otkloneniem}
if a[1,0]<a[2,0] then
begin
min1:=1;
min2:=2
end
else
begin
min1:=2;
min2:=1
end;
for i:=3 to m do
begin
if a[i,0]<a[min2,0] then min2:=i;
if a[min2,0]<a[min1,0] then
begin
j:=min1;
min1:=min2;
min2:=j
end;
end;
{Vivodim nomera strok s naimenshim otkloneniem i sodersgimoe etix strok}
writeln('Stroki s naimenshim otkloneniem: ',min1,' и ',min2);
for j:=1 to n do write (a[min1,j],' ');
writeln;
for j:=1 to n do write (a[min2,j],' ');
end.