Модуль с объектм

Unit obj;
Interface
uses crt,graph;
procedure summ;
Procedure stolbci;
Procedure matr;
Procedure stroki;
Procedure file_work;
Procedure graphik;
IMPLEMENTATION
procedure summ;
Var A,B:integer;S:real; 
c,d:integer; I:integer;
Begin 
Writeln ('enter A');
Read(A);
Writeln('enter B');
Read(; 
For I:=c to d do 
Begin
If I mod 7=5 then
S:=S+Sqr(i)*I; 
End; 
 
Write(S);
End;
Procedure stolbci;
var a:array [1..3, 1..5] of real; 
amin,x : real;
i,j,imin: integer;
begin 
clrscr;
for i:=1 to 3 do 
for j:=1 to 5 do
begin
write ('enter a [',i,j,']='); 
readln (a[i,j]);
end;
writeln ('initial array'); 
for i:=1 to 3 do
begin
for j:=1 to 5 do 
write (a[i,j]:5:2); 
writeln;
end;
amin:=a[1,1];imin:=1; 
for i:=1 to 3 do
for j:=1 to 5 do
if a[i,j]<amin then 
begin
amin:=a[i,j];
imin:=j
end;
for i:=1 to 3 do
begin
x:=a[i,imin];
a[i,imin]:=a[i,5];
a[i,5]:=x;
end;
writeln ('result array'); 
for i:=1 to 3 do
begin
for j:=1 to 5 do
write (a[i,j]:5:2);
writeln;
end;
readln
end;
 
Procedure matr;
var a:array[1..5,1..3] of integer;
i,j:integer;
begin
clrscr;
randomize;
for i:=1 to 5 do
for j:=1 to 3 do
a[i,j]:=random(90)+10;
gotoxy(33,10);
write(#201);
for i:=1 to 13 do write(#205);
write(#187);
for i:=1 to 5 do
begin
gotoxy(33,10+i);
write(#186); 
for j:=1 to 3 do
write(a[i,j]:4);
write(' '#186);
end;
gotoxy(33,wherey);
write(#200);
for i:=1 to 13 do write(#205);
write(#18;
readln
end;
Procedure stroki;
var s : string; 
len : integer; 
begin 
ClrScr;
WriteLn('Vesti stroku,nashat Enter');
ReadLn(s);
len := length(s);
WriteLn('dlina stroki - ',len,' simvolov.');
if len mod 2<>0 then
begin
Delete(s, (len div 2)+1, 1); 
WriteLn('Stroki, posle udalenia simvola po seredine');
WriteLn(s);
end; 
ReadLn;
end;
 
Procedure file_work;
var 
 
sm,st:integer;
s:string;
f:text;
begin
clrscr;
assign(f,'file1.txt');
reset(f);
sm:;st:;
while not eof(f) do
begin
readln(f,s);
st:=st+1;
sm:=sm+length(s);
end;
close(f);
writeln('kolishestvo simvolov=',sm);
write('kolishestvo strok=',st);
readln
end;
 
Procedure graphik;
var gd,gm:integer;
x0,y0,a,b,x1,y1,x,y:longint;
s:string;
begin 
clrscr;
repeat
write('Vvedite a ot 1 do 220 a='); 
readln(a);
until (a>0)and(a<=220);
repeat
write('Vvedite b ot 1 do 330 b=');
readln(;
until (b>0)and(b<=330);
gd:;
initgraph(gd,gm,'C:\Pascal'); 
x0:=getmaxX div 2; 
y0:=getmaxY div 2;
Setbkcolor(5); 
Setcolor(1); 
line(0,y0,getmaxX,y0); 
line(x0,getmaxY,x0,0);
line(x0-5,15,x0,0);
line(x0+5,15,x0,0);
line(625,y0-5,640,y0);
line(625,y0+5,640,y0);
Settextstyle(0,0,2);
outtextXY
(x0+7,7,'Y');
outtextXY(620,y0+10,'X');
Settextstyle(0,0,1);
str(b,s);
outtextXY(x0-b-20,y0+10,'-'+s);
outtextXY(x0+b,y0+10,s);
outtextXY(x0+5,y0+10,'0');
str(a,s);
outtextXY(x0+5,y0-a,s);
x1:2*x0+div 2;
y1:2*y0-a) div 2;
outtextXY(x1+20,y1-20,'F(');
line(x1,y1,x1+20,y1-10);
setlinestyle(0,0,3);
line(20,y0,x0-b,y0);
line(x0-b,y0,x0,y0-a);
line(x0,y0-a,x0+b,y0);
line(x0+b,y0,620,y0);
readln
end;
end.