Ограничение количества вводимых сиволов

[Exoo]

Доброго времени суток!
У меня такой вопрос:
каким образом можно ограничить количество вводимых символов переменной типа стринг?
нужно задать кол-во вводимых символов - пусть будет n символов.
я попробовал так сделать

writeln('Enter N');
 readln(n);
 
 
 writeln('Enter string');
 repeat
 readln(s);
 until length(s)<=n;

но проблема в том что я хочу сделать чтобы символы после введенных символов вообще не вводились.
а так получается что пока количество введенных символов не совпадет с n, пользователь вводит строку.

[Leshii]

Program ll;
uses crt;
var
n,k:integer;
s:string;
begin
clrscr;
writeln('Enter n:');
readln(n);
repeat
     {$V-}
    writeln('Enter string');
    readln(s);
     {$V+}
    k:=length(s);
until k>=n ;
readln;
end.

В конце правда лишняя строка получается(уже когда вводиш).Попробуй директиву проверки длинны введенных слов использовать.Выше описал.

[_-Re@l-_]

Leshii, так не пойдёт.
Можно вот так:

uses crt;
var
 s : string;
 c : char;
begin
  s:='';
  clrscr;
  while length(s) <= 10 do
  begin
    c:=readkey;
    write(c);
    s:=s+c;
  end;
  read;
end.

[Leshii]

Тогда сразу вопрос, а почему?
Я просто исходил от того факта что ограничение вводится.Но ошибок не исключаю.

[Exoo]

Сообщение от _-Re@l-_

Leshii, так не пойдёт.
Можно вот так:

......

этот вариант не работает если вводить определенное число н.
или я что-то криво делаю.

Сообщение от Leshii

.....

В конце правда лишняя строка получается(уже когда вводиш).Попробуй директиву проверки длинны введенных слов использовать.Выше описал.

тот же эффект получается что и у моего варианта кода.

[_-Re@l-_]

этот вариант не работает если вводить определенное число н.

Я привёл простой пример, где ограничение на 10 символов.Думается, это не сложно переделать так, чтобы ограничение было n символов. Ежели вам это сложно - во фриланс.

или я что-то криво делаю.

Скорее руки кривые.

тот же эффект получается что и у моего варианта кода.

Просто оба ваших примера кода позволят ввести сколь угодно символов.

[Exoo]

writeln('Enter N');
 readln(n);
 writeln('Enter string');
 s:='';
  while length(s) <= n do
  begin
    c:=readkey;
    write(c);
    s:=s+c;
  end;

все разобрался - вся проблема в паскалеАБЦ была