Даны 2 целых числа а,б найти значение S по формуле

Type       piece = record               value: string[10];               count : = 1;       end; var       pieces: array[1..200]of piece;       i, j, n, pieces_n: integer;       s, p: string;       found: boolean;       imax: =1; begin       read(s);       read(n);       for i : = 1 to length(s) - n + 1 do       begin               p : = copy(s, i, n);               found : = false;               for j : = 1 to pieces_n do                       if pieces[j].value = p then begin                               pieces[j].count : = pieces[j].count + 1;                               found : = true;                               if pieces[imax].count < pieces[j].count then                                       imax : = j;                               break;                       end;               if not found then begin                       pieces_n : = pieces_n + 1;                       pieces[pieces_n].value : = p;               end;       end;             writeln(pieces[imax].value); end.