Thank you guys. Sorry I didnt explain the problem.

Im using freepascal IDE for this program and Im getting and error in line 14, 15. I receive this error:

Exited with exitcode = 106.

Im trying to save data into an array. When I enter the surname and insurance type it goes well, but when it reaches to line 13 thats when I receive the error.
I believe its an invalid numeric format but I dont know how to fix it. I will appreciate any help given.

{program ncic;
const

    home : real = 1500;
    life : real = 2000;
    motor_vehicle : real = 1400;
    business : real = 1200;

Var

    surname : array [1..2] of string; //array to save the surname for each client
    insurance : array [1..2] of string;
    premium : array [1..2] of integer;
    total_premium : real;
    client : integer;
    home_count, life_count, motorveh_count, business_count : integer;

Begin

    home_count := 0;
    life_count := 0;
    motorveh_count := 0;
    business_count := 0;

   for client := 1 to 2 do

    begin
            writeln('Enter the client Surname: ');
            readln(surname[client]);
            Writeln('Please enter the type of insurance: ');
            readln(insurance [client]);
            writeln('Enter your premium');
            readln(premium [client]);
     if (premium [client]) > 0 then
       Begin
            if (insurance [client] = 'Home') then
                    Begin

                            home_count := home_count + 1;
                    end;

       End;

    end;

    writeln('total amount :', home_count);
    End.