Как это доделать и заставить работать?var f1,f2: text;m,n,nn: string;i,j:integer;begin assign(f1,'input. txt'); reset(f1); assign(f2,'output. txt'); rewrite(f2); while not eof(f1) do begin readln(f1,n); readln(f1,nn); end; writeln('Длина первой строки ',Length(n)); writeln('Длина второй строки ',Length(nn));(ЗДЕСЬ НАДО СДЕЛАТЬ ПРОВЕРКУ ДЛИНЫ СТРОК ) j:=0; for i:=1 to Length(nn) do begin m:=nn[i]; if (m in n) then inc(j); end; writeln ('Количество элементов строки S в J = ', j); readln (f1); writeln (f2,'Количество элементов строки S в J =' ,j); close(f1); close(f2);end.