пароль в PascalABC

[КакГагарин]

Дорогой пипл можете помочь с маленькой проблемой в пароле:

///uses crt, GraphABC;
var i,k,n,g:integer;
    c:char;
    f:text;
    a,s:string;


procedure parolka;
var i: integer;
    f:text;
    c,y:char;
    s,a:string;

begin
{clearwindow;
n:=loadpicture('D:\Новая папка\Курсач\PABC\pas.jpg');}
assign(f,'pass.txt');
reset(f);
readln(f,a);
if c=#13 then exit;
repeat

clearwindow;
drawpicture(n,450,60);
rectangle (300,200,400,250);
gotoxy( 29,9);
setfontsize(11);
setfontstyle(fsItalic);
writeln('Введите пароль'); gotoxy(32,12);
s:=''; c:='a'; k:=0;
while c<>#13 do

begin
c:=readkey;
if c<>#13 then

begin
s:=s+c;
k:=k+1;
gotoxy(31+k,12);
write('*');
end;
end;
if a<>s then
if c=#8 then delete(s,1,1);


until a=s;

hidecursor;
clearwindow;
gotoxy(20,12);
writeln('Пароль введен верно!!!');
{n:=loadpicture('D:\Новая папка\Курсач\PABC\passw.jpg');
drawpicture(n,450,60); }
rewrite(f);
write(f,a);
close(f);
for i:=1 to 500000 do
begin
delay(200);
if i mod 2=0 then setfontcolor(clblack) else setfontcolor(clwhite);
textout(160,420,'Для продолжения нажмите "ПРОБЕЛ"');
end;
end;
begin

hidecursor;

n:=loadpicture('D:\Новая папка\Курсач\PABC\komp.jpg');
drawpicture(n,450,60);

setbrushstyle(bsclear);
setwindowcaption('Титульный лист проекта');
setfontcolor(claqua);
setfontstyle(fsItalic );
setfontsize(15);


textout(70,25,'Костанайский Колледж Автомобильного Транспорта');
textout(250,70,' Проект');
textout(220,120,'Учащегося гр.');
textout(20,350,'Руководитель  пректа:');
textout(20,380,'фамилия преподователя');
textout(230,170,'Фамилия учащегося');

 i:=1; c:='a';
repeat  //   c:=readkey;
i:=i+1;
delay(200);
if i mod 2=0 then setfontcolor(clblack) else setfontcolor(clwhite);
textout(160,420,'Для продолжения нажмите "ПРОБЕЛ"');

until keypressed;

 parolka;


end.   ///

Вот это есть код. Проблемма в том что после нажатия первого пробела программа переходит к окну пароля и пробел щитает за уже введенный символ.Вопрос таков каким образом можно сделать чтоб программа мне не записывала пробел или как Подключить BackSpace. Дело в том что если пишешь условие что если нажат BackSpace, то delete(s,1,1), но при этом он не удаляет символ, а наоборот еще дописывает.
Уже обшарил весь гугл и очень много форумов и ни где нет о PascalABC.


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

тоже мне, бином Ньютона..

вы же выходите из цикла не по нажатию пробела а ПО НАЖАТИЮ ЛЮБОЙ клавиши. (keypressed)
а кто её прочитает из буфера клавиатуры?!
Правильно - чтение в процедуре parolka.
достаточно прочитать код в переменную, как всё наладится.
примерно так:

repeat  
  i:=i+1;
  delay(200);
  if i mod 2=0 then setfontcolor(clblack) 
                     else setfontcolor(clwhite);
  textout(160,420,'Для продолжения нажмите "ПРОБЕЛ"');
until keypressed;

c:=readkey;

parolka;

код вообще не смотрел. мне кажется там у Вас слишком всё замудрённо/запутанно написано..
мне хватило то, что Вы проверяете переменную c до того, как ей что-то присвоено:

  if c=#13 then exit;

Это однозначно нонсенс, баг и ошибка!
Дальше я уже смотреть не стал, уж извините великодушно...

[КакГагарин]

Не возможно вы меня не поняли, дело в том что у меня программа сделанна так, что если пароль был не верен то окно ввода отчищалось если в программу как вы показали вставить:

 c:=readkey;

то если пороль был не верен программа просто завершалась.

[КакГагарин]

Но спасибо, что откликнулись.

[unbanned]

while c <> #13 do

    begin
      c := readkey;
      if c <> #13 then

      begin
      if (c <> #32) and (c<>#8) then  s := s + c;
        k := k + 1;
        gotoxy(31 + k, 12);
        write('*');
      end;
    end;
  if a <> s then
    if c=#8 then delete(s,length(s),1);

попробуй вот так...

а вообще проверку пароля я бы как-то так сделал

uses
  crt;

var
  a: string;

procedure chek(pas: string);
var
  c: char;
  s: string;
  charsLt: set of char;
  charsK: set of char;
  numbers: set of char;
begin
  charsLt := ['А'..'я'];
  numbers := ['0'..'9'];
  charsK := ['A'..'z'];
  s := '';
  writeln('Введите пароль:');
  while c <> #13 do 
  begin
    write(s);
    c := readkey;
    if (c in charsLt) or (c in charsk) or (c in numbers) then s := s + c;
    if c = #8 then delete(s, length(s), 1);
    if c = #46 then delete(s, 1, 1);
    clrscr;
    writeln('Введите пароль:');    
  end;
  writeln(s);
  if s = pas then writeln('пароль верный')
  else writeln('не верный'); 
end;

begin
  a := 'password';
  chek(a);
end.