我是新人`不会优化下面程序\`帮帮忙拉

var n,i,j,l,k,p,dt,s2,s3,s5,s6,t:longint;

s1,s4:integer;

st,ss:string;

sg:array [1..100] of string;

z,y:array[1..100] of longint;

begin

readln(n);

for i:=1 to n do

begin

i:=i+1;

fillchar(y,sizeof(y),#0);

t:=0;s4:=0;

readln(st);

k:=length(st);

if k=4 then sg[i]:='6174' else

begin

repeat

if length(st)