Создать программу расчета прибыли по вкладам- Pascal(Паскаль)

var
  i:integer;
  n1:real;         {сумма вклада}
  n:real;
  p:integer;       {проценты гдовые}
  l:integer;       {срок вклада}
  m:real;          {прибыль}
  o: real;         {сумма на счету через период времени}
begin
  writeln('Введите сумму вклада*');
  readln(n1);
  writeln('под сколько процентов годовых?');
  readln(p);
  writeln('на сколько лет?');
  readln(l);
  n:=n1;
    for i:=1 to l do begin
      m:=(n/100)*p;
      o:=n+m;
        if l>1 then n:=o;
    end;           {for}
  writeln('на вашем счету ',o:10:2,'y.e.');
  writeln('из них',o-n1:10:2,'y.e. прибыли.');
  readln;
end.