Macintosh Pascal 1.0: Screen Echo

To defeat the echo to the screen when entering data from the keyboard, use
the GET statement rather than the READ statement. For example:

Program No_Display(input, output);
Var
i:integer;
v:array [1..10] of char;
Begin
i:=1;
Writeln('Enter 10 Character Password:');
While i <=10 do
Begin
Get(input);
v[i]:=input^;
i:=i+1;
End;{while}
End.