переправить программу на такую где нет функции

[Маруська27]

у меня есть программа в паскалеАВС

function shift(x:char; sdvig:Integer):char;
var
k:Integer;
begin
if (x >= 'a') and (x <= 'z') then
begin
k := Ord(x) - Ord('a') + sdvig;
if k >= 26 then k:= k-26;
k := Ord('a') + k;
end
else if (x >= 'A') and (x <= 'Z') then
begin
k := Ord(x) - Ord('A') + sdvig;
if k > 22 then k:= k-22;
k := Ord('A') + k;
end;
Result := Chr(k);
end;
var
S: string;
t:text;
WordFound :boolean;
WordLength :Integer;
i,k: Integer;
begin
assign(t,'ttt.txt');
reset(t);
Readln(t,S);
WordFound := false;
for i:= 1 to Length(s) do
begin
if (not WordFound)
and ((S[i] >= 'a') and (S[i] <= 'z') or (S[i] >= 'A') and (S[i] <= 'Z')) then
begin
WordFound := true;
WordLength := 1;
end
else if ((S[i] >= 'a') and (S[i] <= 'z') or (S[i] >= 'A') and (S[i] <= 'Z'))
then
WordLength := WordLength + 1
else if WordFound then
begin
WordFound:= false;
for k := i-1 downto i - WordLength do
S[k] := shift(S[k], WordLength);
end;
end;Close(t);
Writeln(S);
end.

как её переделать на программу без функции и не использовать тип boolean? заранее спасибо