Помогите пожалуйста :(((Даны...

Помогите пожалуйста ((Даны шесть монет, из которых одна фальшивая. Фальшивая монета отличается от настоящей монеты весом, причем она либо немного тяжелее, либо немного легче. Имея рычажные весы, определить ложную монету не более чем за три взвешивания.
Это в паскале надо)
Пожалуйста!!!!))))

 

Var
    a, real_coin: array[1..6] of integer;
    forged_coin, i: integer;

begin
    for i := 1 to 6 do
        a := 10;
    forged_coin := random(6);
    a[forged_coin] := random(4) + 8;  
    writeln(forged_coin);
    
    for i := 1 to 6 do
        write(a, ' ');
    writeln;
    
    forged_coin := 0;
    if a[1] + a[2] = a[3] + a[4] then begin
        real_coin[1] := a[1];
        real_coin[2] := a[2];
        if real_coin[1] = a[5] then
            forged_coin := 6
        else forged_coin := 5;
    end
    else begin
        real_coin[1] := a[5];
        real_coin[2] := a[6];
        if a[1] + a[2] = real_coin[1] + real_coin[2] then begin
            real_coin[3] := a[1];
            real_coin[4] := a[2];
            if real_coin[1] = a[3] then
                forged_coin := 4
            else forged_coin := 3;
        end
        
        else begin
            real_coin[3] := a[3];
            real_coin[4] := a[4];
            if real_coin[1] = a[1] then
                forged_coin := 2
            else forged_coin := 1;
        end;
    end;
    
    writeln(forged_coin);
end.