Readkey и вылет!!!

[k281092]

Добрый день товарищи!!! Пишу курсовую работу:"Клавиатурный тренажер" на паскале (паскаль АВС стоит)! Подскажите пожалуйста как можно сделать следующую вещь! Я ввожу букву, и не дожидаясь пока я нажму энтер паскаль считывает его!
И второе, как сделать, чтоб буквы сверху летели вниз?!!! Заранее благодарна за любую информацию

[Mad_Cat]

Я ввожу букву

Readkey

[k281092]

Это было первое что я попробовала! Вот так выглядел код:

writeln(A1[i]);

begin
sim:=readkey;
writeln('Вы ввели ',sim);
end;

А вот как сработада прога!:
Введите "г"
Вы ввели : R /// хотя я ничего не вводила!!!

[Mad_Cat]

uses crt;
var c:char;
begin
c:=readkey;
writeln(c);
end.

Все прекрасно работает)

[k281092]

в отдельной прогк тоже все хорошо работает, а где в этом куске ошибкка я тогда не пойму!!!

repeat
//Delay(500); // задержка времени
i:=random(10);
writeln(A1[i]);

Begin
sim:=Readkey;
writeln;
readln(sim);
WriteLn(sim);
End;

if sim<>A1[i] then
begin
mistake:=mistake+1;
Writeln('Ой! Ошибочка вышла');
end;
kol:=kol+1;
until kol=25;
end

вот кусок проги!!!
А[i] массив array [0..10] of char = ('а','о','в','л','ы','д','е','г','н ','п','к');

[Mad_Cat]

readln(sim);// зачем это7

[k281092]

это я подумала, что не хватает этого куска, вдруг из-за него не раьотает

[k281092]

вот я его убрала и он стал половину значений сам заполнять, а вторую мне позволил великодушно ввести))

[ViktorR]

Добавьте ещё одну функцию KeyPressed.
Функция проверяет была ли нажата клавиша и если да, то возвращает true.

Пример:

if KeyPressed then
   ch := readkey;

Падение символов можно имитировать, например, использованием

GoToXY(X,Y); {переход на некоторую позицию}
 write(ch); {вывод символа}
 {тут надо вставить задержку}
 GoToXY(X,Y); {Возврат курсора}
 write(' '); {вывод пробела - стирание символа}

Начальное положение по Х можно сделать рандомно и затем рандомно двигать по Y.

[k281092]

Спасибо вам большое!!! Очень благодарна))