Числа Фибоначчи, где ошибка?

program Project1;
{$APPTYPE CONSOLE}
 
uses 
SysUtils;
var 
k,s:  integer;
//K- вводимое число
// s - сумма чисел
begin
try
// средство обработки ошибок, если в блоке try происходит исключения
writeln(‘enter K’):
readln(k);
// читаем число К
if (k < 100) or (k > 999) then
raise Exception.Create('vvedite trehznachnoe chislo') 
// если число не трехзначное сообщаем об ошибке
else
begin
// иначе вичисляем числа с помощю mod и div
s := (k div 100) + ((k div 10) mod 10) + (k mod 10);
 write((k div 100), '+', ((k div 10) mod 10), , '+', (k mod 10), '=');
writeln(s);
// выводим результаты
end;
except // блок exceptобрабативает ошибку в блоке try
on E:  Exception do
writeln(E.ClassName, ':'    , E.Message);
// в случае ошибки - выводим текст сообщения об ошибке
end;
readln;
end.

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask;
type
  TForm1 = class(TForm)
    MaskEdit1: TMaskEdit;
    Label1: TLabel;
    Button1: TButton;
    Label2: TLabel;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
  var k, s: integer;
begin
  k:=StrToInt(MaskEdit1.Text);
  s:=(k div 100) + ((k mod 100) div 10) + (k mod 10);
  Edit1.Text:=IntToStr(s);
end;    end.

program Project5;
 
{$APPTYPE CONSOLE}
 
{$R *.res}
 
uses
  System.SysUtils;
  var
    k,s:  integer;
begin
 
 
//K- вводимое число
// s - сумма чисел
begin
try
// средство обработки ошибок, если в блоке try происходит исключения
writeln('enter K');
readln(k);
// читаем число К
if (k < 100) or (k > 999) then
raise Exception.Create('vvedite trehznachnoe chislo')
// если число не трехзначное сообщаем об ошибке
else
begin
// иначе вичисляем числа с помощю mod и div
s := (k div 100) + ((k div 10) mod 10) + (k mod 10);
 write((k div 100), '+', ((k div 10) mod 10), '+', (k mod 10), '=');
writeln(s);
// выводим результаты
end;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end;
readln;
end.