Паскаль. Помогите с раелизацией процедур.

[Dmitrij]

Написал программу в Паскале. Все норм, работает! Преподователь сказала сделать её с вызовами процедурур =(
не че не понимаю, как их далать?... Помогите пожалуйста!

Дана строка S и число N. Преобразовать строку S в строку длины N следующим образом:
если длина строки S больше N, то отбросить первые символы,
если длина строки S меньше N, то в ее начало добавить символы "." (точка).

Program cTpoku;
var
s:string;
s2:array [1..100] of char;
x:char;
i,j,m,n:integer;
begin
writeln('BBeguTe TekcT');
readln(s);
m:=length(s);
writeln('gJIuHa TekCTa = ',m);
writeln('BBeguTe 4ucJIo n');
readln(n);
writeln;
j:=1;
if m>n
then
for i:=m-n+1 to m do
begin
s2[j]:=s[i];
inc(j);
end
else
if m<n
then
begin
for i:=1 to n-m do
begin
s2[i]:='.';
end;
for i:=n-m+1 to n do
begin
s2[i]:=s[j];
inc(j);
end;
end
else
for i:=1 to n do
begin
s2[j]:=s[i];
inc(j);
end;
writeln(s2);
readln;
end.

[alex_fcsm]

var s:string;
    n:integer;

procedure Delete_(var s:string;n:integer);
var i,j:integer;
begin
 j:=length(s)-n;
for i:=1 to j do
 delete(s,1,1);
end;

procedure Insert_(var s:string;n:integer);
var i,j:integer;
begin
 j:=n-length(s);
for i:=1 to j do
  s:='.'+s;
end;


begin
writeln('Input string');
readln(s);
writeln('Input n');
readln(n);
if Length(s)>N then Delete_(s,n)
   else if Length(s)<N then Insert_(s,n);
 writeln('Result:',s);
end.