Работа со строками - Turbo Pascal (249887)

const N=3;
var
    u: string;
    ws: array[1..N] of string;
    w: string;
    len: integer;
    i, j, q: integer;
    frq, max_frq,k:integer; num:string;
    
 
begin
    
    writeln('Введите текст из ', N, ' слов: ');
    read(u);
    len := length(u);
 
    i := 1;
 
    while i <= len do
        if (lowercase(u[i]) >= 'а') and (lowercase(u[i]) <= 'я') then begin
            w := lowercase(u[i]);
            i := i + 1;
            while (i <= len) and
            ((lowercase(u[i]) >= 'а') and
            (lowercase(u[i]) <= 'я')) do begin
                w := w + lowercase(u[i]);
                i := i + 1;
            end;
            j := 1;
            while j <= q do
                j := j + 1;
            if j > q then begin
                q := q + 1;
                ws[q] := w;
            end;
        end
        else
            i := i + 1;
 
    //ПОИСК
        
        num := ws[1];
    max_frq := 1;
    for i:=1 to N-1 do begin
        frq := 1;
        for k:=i+1 to N do
            if ws[i] = ws[k] then 
                frq := frq + 1;
        if frq > max_frq then begin
            max_frq := frq;
            num := ws[i];
        end;
    end;
 
    if max_frq > 1 then
            writeln('САМОЕ ЧАСТО ВСТРЕЧАЮЩЕЕСЯ СЛОВО  ', num)
    
 
end.