readbuf.pas

{ReadBuf.PAS}
 
{ Пример программы для функции ReadBuf }
{ Компилировать в режиме Windows }
 
Uses WinCrt;
 
Var C : PChar;
 
Begin
 GetMem(C, 20);
 C:=#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0;
 WriteLn('Введите фразу длиной до 20 символов:');
 ReadBuf(C, 20);
 WriteLn('Вы ввели: ');
 WriteLn(C);
End.