Дан текст на русском языке и некоторая буква. Найти слово, содержащее наибольшее количество указанных букв.

procedure TForm1.Button1Click(Sender: TObject);
Var a:array of string;
s,s1,s4,s2,s3,z:string;
n,x,j,i,f,h,y,r:integer;
begin
z:=Edit2.Text;
f:=0;
s4:=' ';
With memo1 do begin
              For n:=0 to lines.count-1 do
                begin s:=Lines[n];
                i:=1;
                r:=0;
                while i<>length(s) do
                  If s[i]=s4 then
                    begin
                      r:=r+1;
                      a[r]:=copy(s,1,i);
                      delete(s,1,i);
                      i:=1;
                    end else i:=i+1;
                end;
              end;
h:=0;
y:=0;
For i:=1 to r do begin s2:=a[i];
                       for j:=1 to length(s2) do If s2[j]=z then
                       h:=h+1;
                       If h>y then begin y:=h;
                                        s3:=s2;
                                    end;
                end;
label3.Caption:='Искомое слово "'+s3+'". Буква "'+s1+'" встречается '+inttostr(y)+' раз';

For n:=0 to lines.count-1 do

For n:=1 to lines.count-1 do

Var s1,s2,s3,s4:string;
x,y,i:integer;
begin
s1:=Memo1.Lines.Text;
x:=0;
y:=0;
For i:=1 to length(s1) do
  begin
    If s1[i]=' ' then
                    begin s2:=copy(s1,1,i);
                          delete(s1,1,i);
                          If x>y then begin s3:=s2;
                                            y:=x;
                                      end;
                    end
                          else If s1[i]=s4 then x:=x+1;
 
   end;
 
Edit2.Text:=s3;
end;

for a:=1 to length(stringvar2) do
begin
stringvar1:=stringvar2[a]

a[r]:=copy(s,1,i);