Из функции в процедуру в Delphi

[azhigalieva]

Delphi.
Даны N предложений, в которых имеется буква ш. Найти, в каком из них эта буква имеет больший порядковый номер (при счете от начала предложения). Если в предложении имеется несколько букв ш, то должна быть учтена последняя из них. (Определить функцию для нахождения порядкового номера последнего вхождения в предложение некоторой буквы.)

Функция у меня получилась, ниже код программы. Теперь нужно эту функцию mem переделать в процедуру.
Подскажите, как это сделать?
Вот код программы с функцией:

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
Memo: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}

function mem(s:string):integer;
var i,a:integer;
begin
a:=0;
for i:= length(s) downto 1 do
begin
if s[i]='ш' then
begin
a:=i;
break;
end;
end;
mem:=a;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i,max,j,a,b: integer;
s,s4:string;
begin
s:=memo.text;
max:=0;
b:=-1;

for j := 0 to Memo.Lines.Count-1 do
begin
s4:=memo.lines[j];
a:=mem(s4);

if a>max then
begin
max:=a;
b:=j;
end;
end;
label1.Caption:=label1.Caption+intt ostr(b+1);
end;
end.

[GetMax]

Procedure mem(s:string; var a : Integer)
var i:integer;
begin
for i:= length(s) downto 1 do
begin
if s[i]='ш' then
begin
a:=i;
break;
end;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  a : Integer;
Begin
  a := 0;
  Mem(s4, a);
End;