公共子串

前言
“不要在一棵树上吊死，在几棵树上多试试死几次……——死就死得彻底！”欢迎来到嘟嘟课堂。今天，嘟嘟老师讲一道DP题——公共子串。
题目描述
写一个程序，给你两个字符串，计算最长的公共子串的长度。如果字符串s连续地出现在字符串t中，则称s是t的子串。
输入
输入有两行，每行一个字符串，字符串里的字符都是大写英文字母，长度不超过4000。
输出
输出一个整数表示公共子串的最长长度。
样例输入1
ABRACADABRA
ECADADABRBCRDARA
样例输出1
5
样例输入2
UPWJCIRUCAXIIRGL
SBQNYBSBZDFNEV
样例输出2
0
数据范围限制
30%的字符串长度不超过50
思路
DP没什么好讲的。比赛时暴力过了40分。就把第二个字符串作为标准，第一个字符串去搜索，找到长度最大的，就行了。
代码

uses math;
var
        f:array[0..4000,0..4000] of longint;
        i,j,a,ans:longint;
        s,ss,sss:ansistring;
begin
        assign(input,'common.in');reset(input);
        assign(output,'common.out');rewrite(output);
        readln(s);
        readln(ss);
        for i:=1 to length(s) do
        begin
                for j:=1 to length(ss) do
                begin
                        if (s[i]=ss[j]) then
                        begin
                                f[i,j]:=f[i-1,j-1]+1;
                                ans:=max(ans,f[i,j]);
                        end;
                end;
        end;
        write(ans);
        close(input);
        close(output);
end.