Замена символа при вводе

  ReadLn(s);
  while Pos('#',s)>0 do s[Pos('#',s)]:='v';
  WriteLn(s);

  ReadLn(s);
  for i:=1 to Length(s) do if s[i]='#' then s[i]:='v';
  WriteLn(s);

s: String;

ReadLn(c);
if c='#' then c:='v';

program test;
 
uses
  CRT;
 
  procedure MyReadLn(var S: string);
  var
    C: char;
  begin
    s := '';
    repeat
      C := ReadKey;
      case C of
        #13:
          break;
        '#':
          C := '!';
      end;
      write(C);
      S := S + C;
    until False;
    writeln;
  end;
 
var
  S: string;
begin
  MyReadLn(S);
  writeln(S);
end.

uses CRT;
var C: char;
begin
repeat
C := ReadKey;
case C of
#13:exit;
'#':C := '!';
end;
write(C);
until C=#13;
end.

uses crt;
var c:char;
begin
c:=readkey;
if c=#0 then c:readkey;
if c in [#72,#75,#77,#80] then не надо

uses crt;
 
procedure DoNothing;
begin end;
 
var c:char;
begin
c:=readkey;
if c=#0 then c:readkey;
if c in [#72,#75,#77,#80] then DoNothing;