Делфи 7 оценка на экзамене выставляется в зависимости от суммы набранных баллов по верные ответы

[olalalala]

При использовании тестов оценка на экзамене выставляется в зависимости от суммы набранных баллов по верные ответы. Так, если это
• сумма> = 80% от общего количества ответов, то выставляется оценка -Отлично;
• если 60% <= сумма <80%, то выставляется оценка - хорошо;
• если 40% <= сумма <60%, то выставляется оценка - удовлетворительно;
• если сумма <40%, то выставляется оценка - неудовлетворительно.
Определить оценку на экзамене, если известно сумму набранных баллов за правильные ответы в процентном отношении.

Примерно должно быть так, но программа неверно работает, знаю, что есть ошибки но исправить не знаю как, так как я новичок.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    btn1: TButton;
    lbl1: TLabel;
    procedure btn1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
var n:Integer;
s:string;

begin
if (n>=80) then s:='Отлично';
 if ((n<=60) and (n<80)) then   s:='хорошо';
  if ((n<=40) and (n<60)) then  s:='удовлетворительно';
  if (n<40) then  s:='неудовлетворительно';
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
    Edit1.Clear;
end;

end.

[Alex11223]

Сообщение от olalalala

программа неверно работает, знаю, что есть ошибки но исправить не знаю как

можно начать с определения что значит "неверно".

[olalalala]

Например я ввожу в Edit 1 любое число и программа должна определить что оно значит, то есть: отлично, хорошо, удовлетворительно или не удовлетворительно.

Когда я запускаю свою программу и ввожу число, она мне выдает только один ответ - "отлично", вне зависимости от числа, которое я ввожу.

[Alex11223]

n не присваивается ничего, там 0 или мусор, в зависимости от настроек и настроения компилятора.

[ura_111]

сделай по аналогии:

https://www.youtube.com/watch?v=ZhmA5E16vng