Сформировать файл. Ввести в него последовательность прописных и строчных символов. Прочитать файл и
определить количество прописных и строчных букв. Если больше прописных, то переименовать файл в "пропис", иначе-в "строк".
Вот что получилось:

program Lab15;
Const
Q=['a'..'z','а'..'я'];
R=['A'..'Z','А'..'Я'];
        var
        f,f1:file of char;
        n: char;
        i,k,m:integer;
        begin
        Writeln;
        Assign(f, 'files.txt');
        Rewrite(f);
        for i:=1 to 50 do
        begin
             write('->');
             readln(n);
             write(f,n);
             end;
             Close(f);
             begin
             Reset(f);
             read(f,n);
             k:=0;
             m:=0;
             for i:=1 to 50  do
                    if n  in Q then inc (k);
                    if n in R then inc (m);
                    end;
                        if k>m then Assign(f1, 'strok.txt')
                           else Assign(f1, 'propis.txt');                    Readln;
end.
end.

Не работает? Где ошибка?
Просьба не ржать, я только учусь!

Переименовывается файл НЕ через Assign, а через Rename ... Причем, перед Rename файл надо закрыть...