Как исправить ошибку с русским текстом

program Project1;
 {$APPTYPE CONSOLE}
type TUser = class
  private
    fLogin: string;
    fPassword: string;
    procedure setLogin(newlogin: string);
    procedure setPassword(newpass: string);
  published
    property Login: string read fLogin write setLogin;
    property Password: string read fPassword write setPassword;
    function Connect: boolean;
end;
procedure TUser.setLogin(newlogin: string);
begin
 if newlogin <>'' then fLogin:=newlogin
   else writeln('Error! Login is void!');
end;
procedure TUser.setPassword(newpass: string);
begin
 if Length(newpass)>3 then fPassword:=newpass
   else writeln('Error! Password is too short!');
end;
function TUser.Connect:boolean;
var
 s,p: string;
begin
 writeln('Введите имя пользователя:');
 readln(s);
 writeln('Введите пароль:');
 readln(p);
 result:= (s=fLogin) and (p=fPassword);
end;
var
 User: TUser;
 s,p: string;
begin
 User:=TUser.Create;
  writeln('Create username');
 readln(s);
 User.Login:=s;
 writeln('Create password');
 readln(p);
 User.Password:=p;
 writeln('Username is: '+User.Login);
 writeln('Password is: '+User.Password);
 writeln('Try to login...');
 while User.Password<>'' do begin
   if User.Connect then begin
     writeln('All Ok.');
     break;
   end else writeln('Incorrect data. Try again!');
 end;
 User.Destroy;
 readln;
end.