program Project8;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;
  type TCar = class(TObject)
    Mark: String;
    Speed: Integer;
    MaxSpeed: Integer;
    procedure SetSpeed(s : Integer);
    procedure SetMaxSpeed(s : Integer);
    procedure SetMark(s : String);
  end;
  procedure TCar.SetSpeed(s : Integer);
  begin
    if (MaxSpeed <= s) then  begin
    Speed:= s;
    Writeln('Скорость установлена ', - s);
    end else Writeln('Скорость слишком большая!');
  end;
  procedure TCar.SetMaxSpeed(s : Integer);
  begin
    Speed:= s;
    Writeln('Максимальная скорость установлена ', - s);
  end;
  procedure TCar.SetMark(s : String);
  begin
    Mark:= s;
    Writeln('Скорость марка ', - s);
  end;
  var
  car: TCar;
  i:Integer;
  k: String;
begin
  car:= TCar.create;
  Writeln('Введите макс. скорость');
  Readln(i);
  car.SetMaxSpeed(i);
  Writeln('Введите скорость');
  Readln(i);
  car.SetSpeed(i);
  Writeln('Введите марку');
  Readln(k);
  car.SetMark(k);
  Readln;
end.