Переделать с использованием функции

[Camelot_2012]

Program two;
uses crt;
var a:array[1..3,1..3] of integer;
    i,j,k:integer;
begin clrscr;
for i:=1 to 3 do
for j:=1 to 3 do
begin
write('vvedite a[', i, ',', j, ']: ');
read(a[i,j]);
end;
readln;
for i:=1 to 3 do
begin
writeln;
for j:=1 to 3 do
write(a[i,j]:6);
end;
for i := 1 to 3- 1 do 
for j := i + 1 to 3 do
if abs(a[i,i]) > abs(a[j,j]) then
begin
k := a[i,i];
a[i,i] := a[j,j];
a[j,j] := k;
end;
writeln;
for i:=1 to 3 do
write(a[i,i], ' ');
readln;
end.

program four;
Uses crt;
const
     e=0.001;
var x, t, s, n, c: real; 
begin clrscr;
x:=-1;
while x<=1 do
begin
if x < 0.5 then begin
s := 0; 
n := 0; 
c := 1; 
t := 1; 
while (t / c) > e do 
begin
n := n + 1; 
s := s + t / c; 
t := t * sqr(x); 
c := 4 * n + 1; 
end; 
s := s * (sqr(x) + 3 * x + 4)/ (5 * x + 1);	 
end
else
begin
s := 0; 
n := 1; 
t := x; 
while n <= 10 do 
begin
s := s + t / n; 
t := t * x; 
n := n + 1; 
end; 
s := s * x / 3;    
end;
writeln('x= ',x:2:1,'  y=: ', s:2:3);
x:=x+0.1;
end;
readln;
end.

Помогите пожалуйста программисты!

[Camelot_2012]

Или с использованием процедур!